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S-6 data reduction 

PROGRAM DOCUMENTATION AND REPORT FOR 
THE PRESSURE DENSITY PROGRAM 

by 

Charles Hanley 
and 

William Gough 


INTRODUCTION 

The Pressure Density Program (PDP) is a digital computer program for 
processing data consisting of voltage measurements of the neutral atmospheric 
density and temperature. 

GENERAL DESCRIPTION 

The problem involves analyses of the data recorded by the Bayard- Alpert 
(BA 1 & 2) and Redhead (RH 1 & 2) gauges. These four gauges combine to 
cover the expected 10 -6 torr to 10 -11 torr pressure range, and have been 
physically positioned on the satellite as follows: 

1. Bayard-Alpert gauge #1 (BA 1) lower hemisphere 

2. Bayard-Alpert gauge #2 (BA 2) equator 

3. Redhead gauge #1 (RH 1) equator 

4. Redhead gauge #2 (RH 2) upper hemisphere 

These gauges are calibrated by laboratory and inflight measurements. The 
calibration values are represented by a single or set of functions. 
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1 . Input to Pressure-Density Program 


a. Input data provided by the experimenter 

Laboratory calibration values for each sensor (gauge), hi and lo values 
for the Bayard-Alpert gauges, hi (H c ), lo (L c ), and medium (M c ) values for the 
Redhead gauges. 

Conversion function (table) for each sensor ( I c vs. V c ) 

Table of sensitivities (77) versus current (I c ) for each gauge 
k factor for density calculations 

b. Input from telemetry data 

In-flight calibration values, hi (H f ), lo (L f ) and medium (M f ) for Redhead 
gauges only. 

Selected DC voltage data for all four gauges (V) 

Selected AC voltage data for Bayard-Alpert gauges (V a ) 

Electronics card temperature (T.) 

Electrometer temperature (T e ) 


c. Input from aspect reduction 

Maximum ram velocity for each gauge (V fx ) 

Minimum ram velocity for each gauge (V fn ) 

Longitude, latitude, altitude, local solar time (position of the sun when 
data was received) and spin period. 


2. Output from Pressure Density Program 


The output from the program is a computed density and pressure history 
that is suitable for analysis by the experimenter. 


MATHEMATICAL DESCRIPTION 


Because of differences of design and gauge characteristics it is necessary 
to discuss the mathematics involved in computing pressure for the BA and RH 
gauges separately. 

The density computations will be developed as functions of the gauge orienta- 
tion on the satellite and will be divided into equatorial and non-equatorial gauge 
categories. 

a. Definitions 

The terms used in the following mathematical discussions are defined as 
follows: 


Symbol 

Definition 

Units 

Source 

V 

= 

raw telemetered input data 

volts 

telemetry 

AV 

= 

calibration adjustment 

volts 

computed 

I 

C 

= 

current 

amperes 

computed 


= 

sensitivity 

— 

computed 


= 


— 

Lab 


= 


— 

Lab 

\ 2 


table of values (see Fig. 3) 

_ ^ 

Lab 

B n 

= 


— 

Lab 

B . 

— 




Lab 

r 2 
J 





p 

= 

pressure 

torrs 

computed 

K 

= 

unit conversion constant 

grams kilo- 





meters/to rr/ 





sec. squared 

computed 

«L 

= 

high lab calibration values 

volts 

Lab 

H f 

= 

high flight calibration values 

volts 

telemetry 


= 

medium lab calibration values 

volts 

Lab 

M f 

= 

medium flight calibration 





values 

volts 

telemetry 
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Symbol Definition 

L l = low lab calibration values 
L f = low flight calibration values 
I e = emission current 
V' = adjusted telemetered voltage 

V i = voltage vs current (I ) 

conversion table 

V 2 = voltage vs current (I ) 

conversion table 

V rh = voltage vs current table 

V rh2 = voltage vs current table 

P x = maximum pressure 

P n = minimum pressure 

V = most probable velocity of 
particles inside gauge 

V p0 = most probable velocity of 
particles outside gauge 

V rx = maximum ram velocity 

V rn = minimum ram velocity 

V ave = average ram velocity 

R 0 = gas constant 

T 0 = outside temperature 

= inside temperature 

M 0 = outside mass 

M. = inside mass 

S x = velocity ratio 

S n = velocity ratio 

D i = density 

D 2 = density 

V x = maximum voltage 

4 


Units Source 


volts 

Lab 

volts 

telemetry 

amperes 

telemetry 

volts 

computed 

— 

Monitor Control 
Program computation 

— 

Monitor Control 
Program computation 

— 

Lab 

— 

Lab 

torrs 

computed 

torrs 

computed 

cm/ sec 

computed 

cm/sec 

computed 

km/sec 

aspect tape 

km/sec 

aspect tape 

km/sec 

aspect tape 

CGS 

experimenter 

deg. Kelvin 

experimenter 

deg. Kelvin 

experimenter 

grams/ mole 

experimenter 

grams/ mole 

experimenter 

— 

computed 

— 

computed 

— 

computed 

— 

computed 

volts 

computed 



Symbol 

Definition 

Units 

Source 

V ,' = 

adjusted maximum voltage 

volts 

computed 

V = 

n 

minimum voltage 

volts 

computed 

V = 

adjusted minimum voltage 

volts 

computed 

I = 

X 

maximum current 

amperes 

computed 

I = 

n 

minimum current 

amperes 

computed 

T = 

X 

time of maximum pressure 

sec 

computed 

T = 

n 

time of minimum pressure 

sec 

computed 

k = 

sensitivity factor 

— 

experimenter 




Figure B2 












GAUGE CHARACTERISTICS - PRESSURE COMPUTATIONS 
REDHEAD GAUGES 



Figure R3 | Figure R4 

Having found A and B by table lookup (see Figure R3), the program computes Pressure using the following formula: 


GAUGE ORIENTATION-DENSITY COMPUTATIONS 

Following the pressure computations the program computes density. Com- 
putations of density are divided into equatorial and non -equatorial types depend- 
ing on the gauge orientation on the satellite. The first of these types to be 
discussed will be equatorial. 


Equatorial Gauges (BA 2 and RH 1) 

Using the following parameters from the pressure program; 

t = time 
V = voltage 
V' = adjusted voltage 
P = Pressure 


the density for the equatorial gauges is computed as follows. 
P x = maximum (P), P n = minimum (P) 

AP = P — P (over one spin cycle of .667 sec.) 


(i. R T. 
V . = /— 

pl V M i 

v -IHsH 
p° V M 0 


(Most probable velocity of particles inside gauge) 


(Most probable velocity of particles outside gauge) 


where 


R 0 - 8.315 x 10 7 
T 0 = 1000° Kelvin 
T. = 313° Kelvin 

M 0 ~ 16 

M. = 16 
1 

V rx = Max ram velocity (obtained from the aspect tape 
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Density = 


where 


AP-K 


1333 

yfn • V . • 10 s 

p» 


Non-Equatorlal Gauges (BA 1 and RH 2) 


The non-equatorial density computations use the same parameters and gas 
constant to obtain AP, V p . f and V pQ . The program now computes: 


S 



and 


S 


n 


v 

rn 


po 


where 


V rn = Minimum ram velocity for each gauge. 

From S x and S n the program determines which of the cases described below is 
needed to solve for the atmospheric density in torr units. 


Case 1 


S > 1 and S > 1 

x n — 


D. = 


P K 

X 


1 V 


D = 

2 2 [V.. - V, 


rx 


• ve J 


where V = Average ram velocity 
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Case 2 


S > 1 S < 1 

x n 


p K 

D, 

l v 


1333 • AP • M n 

n = 2 

t F (S x )-F(S n )] 


where 

F(s) = e“ s2 + s • \/tt [1 + erf(s)] 

where 


erf(s) =1 • f 

n J 

J 0 


e -x2 dx 


Case 3 


0 < S < 1 

X — 


D 


l 


= 0 


1333 APM 0 

Ro‘ / T^T: tFCS x ) -F(S n )] 


Case 4 


S < 0 

X — 
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After case computations the program is ready to write out on tape the 
parameters required by the experimenter for each spin cycle. The output format 
is as follows: 


T , V , V ., I , P_ 


BA 1 Alt., Lat., Long., LST (Local Solar Time), AP, T rx , V fx Dj 
T , V , V , , I , P * * D, 

n n n ’ n n 2 


x.xxxE -xx 
x.xxxE -xx 


BA 2 same format as BA 1 
RH 1 same format as BA 1 
RH 2 same format as BA 1. 


OTHER COMPUTATIONS 

In addition to the computations for pressure and density values, the experi- 
menter requested that certain parameters be computed and written out on the 
pressure plot tapes for plotting purposes. 

F (s) is determined from the F(s) function using s computed as follows: 

A + B cos 6 


where 6 is determined by the formula: 

(t - t ) • 9° 

e - 

.0167 

The A and B above are described as: 


A = V 


B = V „ 


V 


ave 


Both A and B are obtained from the aspect tape. 
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It is requested that P £ be normalized, which is accomplished by multiplying 
the raw pressure by the parameter M , where 



x 


now 


p = p. 

norm 1 


M 


P is later plotted against t (time) on the same graph as V 0 • F(s) vs 0 . 

norm ” w 
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STRUCTURE OF THE PROGRAM 
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Pressure Density Program 
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Noix=(r)o 

(NdO) 

dX3= NOIX 
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SRSX = 10. 










20 


SRSXH = (.23)“ 
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EMI = 
EM2 = 
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= F{87) + XSPIN (XCON) 
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• 1.83 













26 


I CNT = I CNT + 1 









27 


XLP =Log 10 (P,) I— ►] XV =(XLP + 13.) 1250 














WRITE 



28 


* 1.83 










JCNT =JCNT + 1 
J Plot = 1 






































k PLOT 
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kCNT = kCNT +1 
k PLOT = 1 
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CASE \ r p v (1333) 1333 A P 





36 













SUBROUTINES 


Program Write Up 


November 1963 


0. Programmer— A. O. Forehand 

1. Program Name— SUBROUTINE FOS 

2. Programming System— FORTRAN n 

3. General Description— 

This subroutine computes the value of the Thermal Transpiration Function, 
defined by: 

F(s) = e"* 2 + s y/rr (1 + erf (s)) 


where s is the given independent variable and erf is the error function. 

4. Calling Sequence— 

CALL FOS (S, FS) where S is the independent variable taken as input to 
the routine and FS is the value of the function, F(S). 

5. Mathematical Description of the Computation 
(1) Definitions and relations 


*F(s) = e“* 2 + s \/tt (l+erf(s)) 


where 


erf(s) = 


f 


dx. 


Substituting this value for er f(s) in * yields 

F(s) = e~* 2 + s v / 7 t + 2s 



e”* 2 


dx 
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Since the integral in the above expression is an odd function we see that 


or 


F(-s) = e‘ s2 - s + 2: 


/' ^ 


dx 


**F(-s) = F(s) -2s/; 


2 

Since for large positive values of s , e _s is small and erf(s) is nearly equal to 
1, then 2 s /Jr is a good approximation to F(s) in this case. 


Since by **F (s) = 2 s -/rt + F(— s) we see that the error in this approxi- 
mation is exactly equal to F (— s). 


(2) Evaluation of 


r 

J o 


-v2 


dx 


Expanding 


r 2 . 


in a Taylor’s series and integrating termwise yields 


s 3 s 5 s 7 

s "ITT + 5T2! _ TT\ 


+ • 


This series converges for all values of s but the number of terms required for 
accuracy becomes excessive as |s| increases. 

This difficulty is overcome by using this series only for |s| - 2.5 and using 
an asymptotic series for |s| > 2.5. 

(a) The asymptotic series T 

(1) Define n = (largest integer < s 2 ) 

(2) Define t = 2s 2 

Then the asymptotic series T is defined by 



t 


U + 1 1 3 1 5 _ ... + ( _ 1)n+ i 1-3.5 • • • (2n - 1) 
t 2 t 3 t n 


t 
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(b) Expression of the integral in terms of T 


Case I. s > 2.5 


f 




-.2 


edx =T-^r <1 - T) 


Substituting this expression back into the equation for F(s) gives 


F(s) = e~ s + s y/n + 2s 


y/n 

~2 




= 2 s y/nr + e” s2 T 


Case n. s < —2,5 


r 


e - * 2 dx = - 


\/tt e~ s 2 


(1 -T) 


2 2s 

This expression substituted into the F(s) equation yields: 


F(s) = e~ s2 + s VZ + 2s jl ^ - 1^1 (1 - T)j 


= e" s2 T 


6. References 

For a complete discussion of the integral involved here and the derivation 
of the asymptotic series see Numerical Math. Analysis by J. B. Scarborough. 
(Pages 406-409 of the 4th edition.) 
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March 1965 


Program Writeup 


0. Programmer— C. Hanley 

1. Program Name -SUBROUTINE MATCH 

2. Programming System— FORTRAN II 

3. General Description- 

Subroutine Match reads the identification record of the experiment data 
tape and the aspect tape and proceeds to compare the appropriate aspect data 
with the experimental data tape for each satellite pass of data. The station 
number, month, day, hours, and minutes are the ID parameters to be matched. 
All parameters are to be matched otherwise processing of the data is deleted 
and an appropriate message is printed out. 

The subroutine (Match) is called into operation by the following program 
statement: 

CALL MATCH (NEDI.N) 

where NED I is the satellite pass number; 

N = output parameter which tells if match has occurred 
N = 0 Match has occurred 
N = 1 Match has not occurred 
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March 1965 


Program Writeup 


0. Programmer— C. Hanley 

1. Program Name— SUBROUTINE INTEP 

2. Programming System— FORTRAN n 

3. General Description- 

Subroutine INTEP is a routine used for interpolating the altitude, latitude, 
longitude and local sun time parameters on the aspect tape. The above parameters 
are given once every 22 sec. and it is required to have the above parameter 
values every spin period (.667 sec.). 

The subroutine (INTEP) is called into operation by the following FORTRAN II 
program statement: 


CALL INTEP (TS, NREC, YALT, YLAT, YLONG, YLST) 


INPUT 

PARAMETERS 


f TS* = time 
\ NREC = number of records 


OUTPUT 

PARAMETERS 


YALT 
J YLAT 
] YLONG 
(jYLST 


altitude 
latitude 
longitude 
local sun time 
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March 1965 


Program Writeup 

0. Programmer— A. O. Forehand 

1. Program Name— SUBROUTINE GTMC 

2. Programming System— FORTRAN II 

3. General Description— 

This FORTRAN II subroutine converts geographic coordinates (latitude, 
longitude) to geomagnetic coordinates (latitude, longitude). The coordinates in 
each case are in degrees. 

1 

1 

Equations 

Definition of Symbols (all refer to degrees) 

X. latitude (input) ' 

4> longitude (input) 

6 co-latitude (90° — A.) 

geomagnetic latitude (output) 

A geomagnetic longitude (output) 

© geomagnetic co-latitude (90° — $) 

<9j co-latitude of north magnetic pole (program constant) 

4> x longitude of north magnetic pole (program constant) 

The geomagnetic position is determined by the equations: 

sin $ = cos sin X. + sin 8 t cos A. cos (<£ - <£j) 

cos cos © - cos 8 

cos A = 

sin sin 0 
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NOTE: (9 X , 4> x ) are defined in the program to be (11.494°, —69.68°). These 

values may be re-determined by the user before compilation if desired. 


Calling Sequence 


CALL GTMC (A, B, C, D) 


where 


A and B are input; C and D are output. 

A, B are latitude, longitude 

C, D are geomagnetic latitude, longitude 


Restrictions 

The input coordinates should satisfy the following inequalities: 

- 90° i A 1 90° 

-180° < B < 180° 

C and D need not be separate locations from A and B i.e., 

CALL GTMC (A, B, A, B) is acceptable. 

System subroutines MINIF, ABSF, SIGNF, SQRTF, SINF, COSF, ASINE, ACOSD 
are used. 


NOTE: This routine is a modification of Subroutine GCON obtained from the 

Fields and Plas mas Branch, GSFC. The original routine converts co- 
ordinates in either direction. 


Definitions of Program Symbols 


Program Symbol 


A 


t 


Definition 


B 
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Program Symbol 


Definition 


C 

D 

THK 

PHK 

SK 

CK 

E 

CT 
DEL 
COS T 
SIN T 
ARG 


4 > 

A 

*1 

Sin 6 X 
Cos Q x 

latitude in radians 
sin A (= Cos Q) 

(4>-4> t ) (if 0 - 180°) 

Cos © (= Sin $ ) 

Sin 0 (= Cos $ ) 

Cos (180° - A) for 0 < DEL < 180° 

Cos ( A + 180°) for DEL < 0 DEL > 180°. 


46 


March 1965 


Program Writeup 


0. Programmer —C . Hanley 

1. Program Name— SUBROUTINE DEN 

2. Programming System— FAP 

3. General Description— 

This binary subroutine (DEN) sets tape units B6, A6, C5, and C6 to low 
density when called into the program. Subroutine DEN is called into operation 
by the following statement: 

CALL DEN 
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OPERATING INSTRUCTIONS 


Sense Switches 


1. Sense Switch 1 and 2 

SSW 1 and 2 are always in a normal position, which is the up position. 
These Sense Switches were originally put into the program for a purpose that 
never materialized. They were never deleted because the idea might have been 
incorporated at anytime. 


2. Sense Switch 3 

When Sense Switch 3 is in the normal position the program will write three 
pressure plot tapes on channels B6, C5, C6 respectively. In the down position 
no plot output tapes will be written. 


3. Sense Switch 4 

In the normal position the optional output (T, V, C, P for every point) will 
be written out on tape. For no optional output SSW 4 must be down. 


DATA CARDS 

There are 14 data cards for each pass or orbit of the satellite to be processed. 
A blank card following the data cards indicates end of data and end of job. The 
format for these cards is as follows: 


Card 

No. 

Col. 

Fortran Symbol 

Job Format 

1 

1-14 

blank 

. 


15-18 

NEDI 

14 


19-28 

blank 

— 


29-32 

NORB 

14 

2 

1-72 

BI 

9E8.2 

3 

1-72 

BI 

9E8.2 

4 

1-72 

VC1 

9F8.6 

5 

1-56 

VC2 

7F8.6 


59-72 

blank 

— 

6 

1-72 

RI 

9E8.2 
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Card 


No. 

Col. 

Fortran Symbol 

Job Format 

7 

1-56 

R12 

7E8.2 


57-72 

blank 

— 

8 

1-6 

XHL 

F6.3 


7-12 

XML 

F6.3 


13-18 

XLL 

F6.3 


19-24 

X2HL 

F6.3 


25-30 

X2ML 

F6.3 


31-36 

X2LL 

F6.3 


37-72 

blank 

— 

9 

1-8 

TO 

F8.2 


9-16 

TI 

F8.2 


17-24 

WO 

F8.2 


25-32 

WI 

F8.2 


33-35 

HID 

A3 


36-72 

blank 

— 

*10 

1-6 

XHF 

F6.3 


7-12 

XMF 

F6.3 


13-18 

XLF 

F6.3 


19-24 

X2HF 

F6.3 


25-30 

X2MF 

F6.3 


31-36 

X2LF 

F6.3 


37-72 

blank 

— 

*11 

1-54 

BV1 

9F6.3 


55-72 

blank 

— 

*12 

1-54 

BV1 

9F6.3 


55-72 

blank 

— 

*13 

1-54 

BV2 

9F6.3 


55-72 

blank 

— 

*14 

1-54 

BV2 

9F6.3 


55-72 

blank 

— 

15 

1-72 

blank 

— 


*These cards are supplied for each pass by the MCP program. 


TAPE FORMATS 


Input Data Tapes 


Pressure Data Tape 


The pressure data tape is a binary tape with standard FORTRAN record 
lengths of 255 words, the first record being an identification record of each orbit 
containing satellite number, month, day, year, station number, and analog tape 
number for each recorded orbit. Following the orbit identification record there 
are data records of 255 words containing the selected DC voltage for all four 
gauges. Following the data words is a sentinel, which is a record of all nines 
(9999's) indicating the end of data. 


Aspect Data Tape 


The aspect data tape is a binary tape with standard FORTRAN records of 
255 words. Each aspect tape has numerous passes of aspect data. Each pass 
consists of an identification record of 209 words containing satellite number, 
month, day, year, station number and analog tape number. Words 1-200 contain 
orbital tape input data which are not relavent to the pressure density program. 
Following the identification record (ID) are data records each containing 141 
words in length. Every pass of data is separated by a record of nines (9999’ s) 
to indicate end of data. 


Output Data Tapes 


P-D Output Tape 


The pressure-density output tape contains all computed parameters for 
each experiment gauge, as requested by the experimenter. 

The output tape is in the BCD mode. This tape, containing records of 
varying lengths, isjplaced on unit A3. 

Density Plot Tape 


The density plot tape, contains aspect and density values for all gauges and 
is formatted for plotting purposes. (S-C-4020 is used to plot these values.) 
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The density plot tape contains records of variable lengths and is in the BCD 
mode. It is placed on unit A6. 

Pressure Plot Tapes 

The pressure plot output tapes contain the raw pressure values, normalized 
pressure, time, and other parameters formatted for plotting purposes. 

The pressure plot tapes are in the BCD mode and contain records of varying 
lengths. These tapes are placed on units B6, C5, and C6. 
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PRESSURE TAPE FORMAT 


630403 

AOPB-WPH 


S-6 PRESSURE GAUGE BINARY TAPE FORMAT 

THE PRESSURE GAUGE BINARY TAPE CONSISTS OF 1 TITLE RECORD, 1 CR 
MORE DATA RECORDS, 2 EOF'S. 

TITLE RECORD 

WORD NO. DESCRIPTION 

0 STANDARD FORTRAN RECORD SIZE INDICATOR. (FIXED POINT) * 

1 SATELLITE NO. = 6 

2 MONTH DATE OF FIRST DATA FRAME 

3 DAY ON S-6 BINARY TELEMETRY 

4 YEAR TAPE 

5 STATION NO. 

6 ANALOG TAPE NO. 

7 IRRELEVANT 

8 S-6 PRESSURE GAUGES I.D. = 60000004 
9-255 IRRELVANT 

* THE RECORD SIZE INDICATOR = 00377000001 OCTAL IS THE ONLY FIXED POINT 
NUMBER IN EACH RECORD. 
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PRESSURE TAPE FORMAT 


DATA RECORD 


WORD NO. DESCRIPTION ** 

0 STANDARD FORTRAN RECORD SIZE INDICATOR. (FIXED POINT) * 

1 DAY COUNT OF YEAR TIME OF 

2 MILLISECONDS OF DAY FRAME 


3- 5 
6 - 8 

9-11 

12-14 

15-17 

18-20 

21 


CHS. 3,19,35 
CHS. 4, 20, 36 

DC (VOLTS) 
AC (VOLTS) 

BAYARD ALPERT 1 

CHS. 5,21, 37 
CHS. 6, 22, 38 

DC (VOLTS) 
AC (VOLTS) 

BAYARD ALPERT 2 

CHS. 10,26,42 

(VOLTS) 

REDHEAD 1 

CHS. 11, 27 ,43 

(VOLTS) 

REDHEAD 2 

SUBCOM POSITION 




22 CH.31 

23 CH. 31 

24 CH.33 

25 CH.33 


(VOLTS) CONTENTS OF CHS.31 AND 33 
(DEGREES) ARE INTERPRETED BY THE 
(VOLTS) VALUE OF THE SUBCOM POS- 
( DEGREES) ITION. (SEE ATTACHMENT) 


26-50 

* 


NEXT FRAME OF DATA 

* 


IN SAME FORM AS 1-25 


* 


* 


226-250 TENTH FRAME OF RECORD 
251-255 SPARES 


** SEE ATTACHMENT FOR VALUES SIGNIFIING END OF DATA OR IRRELEVANT DATA. 
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ASPECT TAPE FORMAT 


630508 

AOPB-MLR 

S-6 ASPECT AND SATELLITE POSITION DATA 
BINARY TAPE 

THE S-6 ASPECT AND SATELLITE POSITION DATA BINARY TAPE C0NSISTS 0F 
1 TITLE RECORD. 1 ©R M0RE DATA REC0RDS. 2 E0F'S. THERE IS T© BE ©NE DATA 
REC0RD F0R EACH TIME BLOCK IN THE TELEMETRY DATA IDENTIFIED IN 
W0RDS 201-206 ©F THE TITLE RECORD.* 

TITLE REC0RO 


WdRD N0* 

FORM 


DESCRIPTISN 



0 

FIXED PT. 


STANDARD F0RTRAN REC0RD SIZE 

INDICATOR. 




>000321000001 

OCTAL IN THE TITLE RECORD 




ON THIS TAPE. 

THIS INDICATES 

A TOTAL 




WORD COUNT PER 

RECORD OF 209 

WORDS. 

1-200 

FLOATING 

PT. 

INFORMATION FROM WORDS 1-200 

OF ORBITAL 




TAPE INPUT • 



201 

FLOATING 

PT. 

SATELLITE N© # 

■ . 6 


202 

FLOATING 

PT. 

M0NTH 

DATE OF FIRST 

DATA FRAME 

203 

FLOATING 

PT. 

DAY 

ON S-6 BINARY 

TELEMETRY 

204 

floating 

PT. 

YEAR 

TAPE 


205 

FLOATING 

PT. 

STATION N0# 



206 

FLOATING 

PT. 

ANALOG TAPE NO 

'• 


207 

FLOATING 

PT. 

IRRELEVANT 



208 

FLOATING 

PT. 

S-6 ASPECT UD 

•> 60000000 


209 

FLOATING 

PT. 

irrelevant 




• N0MI NALLY « A TIME BLOCK IS 21 SEC* ♦ 7 SEC* MULT IVIBRAT©R 

CYCLE AND A 1* SEC. MULTIVIBRATOR CYCLE. 
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ASPECT TAPE FORMAT 


DATA RECORD 
WORD NO# 
0 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 

22 

23 

24 

25 


26 

27 

28 
29 


FORM 

FIXED PT# 


FLOATING PT# 
FLOATING PT # 
FLOATING PT# 

FLOATING PT# 
FLOATING PT# 
FLOATING PT# 

FLOATING PT# 
FLOATING PT# 
FLOATING PT# 

FLOATING PT# 
FLOATING PT# 
FLOATING PT# 

FLOATING PT# 

FLOATING PT# 
FLOATING PT# 
FLOATING PT# 
FLOATING PT* 
FLOATING PT# 
FLOATING PT. 

FLOATING PT# 
FLOATING PT. 

FLOATING PT# 
FLOATING PT. 

FLOATING PT. 
FLOATING PT* 

FLOATING PT# 
FLOATING PT# 

FLOATING PT# 
FLOATING PT# 


DESCRIPTION 

standard fortran record size indicator# 

* 000215000001 OCTAL IN EACH DATA RECORD 
ON THIS TAPE# THIS INDICATES A TOTAL WORD 
COUNT PER RECORD OF 141 WORDS# 

DATE TIME ©F DATA 

DAY COUNT OF YEAR 
SECONDS OF DAY 

X SATELLITE POSITION 

Y VECTOR IN KM# 

Z 

XDOT SATELLITE VELOCITY 
YDOT VECTOR IN KM# /SEC# 

ZD0T 

LONGITUDE SUBSATELLITE 
LATITUDE POSITION IN DEGREES 

ALTITUDE IN KM# 

LOCAL APPARENT TIME IN HOURS 

MAGNITUDE OF POSITION VECTOR IN KM# 
MAGNITUDE OF VELOCITY VECTOR IN KM#/SEC# 
POSITION VECTOR R#A# IN DEGREES 
POSITION VECTOR DECLINATION IN DEGREES 
VELOCITY VECTOR R# A# IN DEGREES 
VELOCITY VECTOR DECLINATION IN DEGREES 

SUN VECTOR R#A# IN DEGREES 

SUN VECTOR DECLINATION IN DEGREES 

MOMENTUM VECTOR R#A# IN DEGREES 
MOMENTUM VECTOR DECLINATION IN DEGREES 

ASPECT SENSOR R#A# IN DEGREES 
ASPECT SENSOR DECLINATION IN DEGREES 

ETP1 SENSOR R#A# IN DEGREES 

ETP1 SENSOR DECLINATION IN DEGREES 

ETP2 SENSOR R#A# IN DEGREES 

ETP2 SENSOR DECLINATION IN DEGREES 


f 
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ASPECT TAPE FORMAT 


30 FLOATING PT. B*A«i SENSOR R.A. IN DEGREES 

31 FLOATING PT. B.A.l SENSOR DECLINATION IN DEGREES 

32 FLOATING PT. B.A.2 SENSOR R.A. IN DEGREES 

33 FLOATING PT. B.A.2 SENSOR DECLINATION IN DEGREES 

34 FLOATING PT. M.S.l SENSOR R.A. IN DEGREES 

35 FLOATING PT. M.S.l SENSOR DECLINATION IN DEGREES 

36 FLOATING PT. M.S.2 SENSOR R.A. IN DEGREES 

37 FLOATING PT. M.S.2 SENSOR DECLINATION IN DEGREES 

38 FLOATING PT. R.H.l SENSOR R.A* IN DEGREES 

39 FLOATING PT, R.H.l SENSOR DECLINATION IN DEGREES 

40 FLOATING PT. R.H.2 SENSOR R.A. IN DEGREES 

41 FLOATING PT. R.H.2 SENSOR DECLINATION IN DEGREES 

42 FLOATING PT. ASPECT SENSOR A* IN DEGREES 

43 FLOATING PT. ETP1 SENSOR A* IN DEGREES 

44 FLOATING PT. ETP2 SENSOR A* IN DEGREES 

45 FLOATING PT. B.A.l SENSOR A* IN DEGREES 

46 FLOATING PT. B.A.2 SENSOR A* IN DEGREES 

47 FLOATING PT. M.S.l SENSOR A* IN DEGREES 

48 FLOATING PT. M.S.2 SENSOR A* IN DEGREES 

49 FLOATING PT. R.H.l SENSOR A» IN DEGREES 

50 FLOATING PT. R.H.2 SENSOR A* IN DEGREES 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 


V 


FLOATING PT. ELAPSED T.IN SEC. OF DAY OF ASPECT S. MAX. RAM V 

FLOATING PT. ASPECT SENSOR MAX. RAM VELOCITY IN KM./SEC. 

FLOATING PT. ASPECT SENSOR MAX. RAM A* IN DEGREES 

FLOATING PT. ELAPSED T.IN SEC.OF DAY OF ETP1 S. MAX. RAM V. 

FLOATING PT. ETP1 SENSOR MAX.RAM VELOCITY IN KM. /SEC. 

FLOATING PT. ETP1 SENSOR MAX.RAM A* IN DEGREES 

FLOATING PT. ELAPSED T.IN SEC.OF DAY OF ETP2 S. MAX. RAM V. 

FLOATING PT. ETP2 SENSOR MAX. RAM VELOCITY IN KM./SEC. 

FLOATING PT. ETP2 SENSOR MAX. RAM A* IN DEGREES 

FLOATING PT. ELAPSED T.IN SEC.OF DAY OF B.A.l S.MAX.RAM V. 
FLOATING PT. B.A.l SENSOR MAX. RAM VELOCITY IN KM./SEC. 

FLOATING PT. B.A.l SENSOR MAX. RAM A* IN DEGREES 

FLOATING PT. ELAPSED T.IN SEC.OF DAY OF B.A.2 S.MAX.RAM V. 
FLOATING PT. B.A.2 'SENSOR MAX. RAM VELOCITY IN KM./SEC. 

FLOATING PT. B.A.2 SENSOR MAX. RAM A* IN DEGREES 

FLOATING PT. ELAPSED T.IN SEC.OF DAY OF M.S.l S.MAX.RAM V. 

FLOATING PT. M.S.l SENSOR MAX. RAM VELOCITY IN KM./SEC. 
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ASPECT TAPE FORMAT 


68 

FLOATING 

PT. 

69 

FLOATING 

PT. 

70 

FLOATING 

PT. 

71 

FLOATING 

PT. 

72 

FLOATING 

PT. 

73 

FLOATING 

PT. 

74 

FLOATING 

PT. 

75 

FLOATING 

PT. 

76 

FLOATING 

PT. 

77 

FLOATING 

PT. 

78 

FLOATING 

PT. 

79 

FLOATING 

PT. 

80 

FLOATING 

PT. 

81 

FLOATING 

PT. 

82 

FLOATING 

PT. 

83 

floating 

PT. 

84 

FLOATING 

PT. 

85 

FLOATING 

PT. 

86 

FLOATING 

PT. 

87 

FLOATING 

PT. 

88 

FLOATING 

PT. 

89 

FLOATING 

PT. 

90 

FLOATING 

PT. 

91 

FLOATING 

PT. 

92 

FLOATING 

PT. 

93 

FLOATING 

PT. 

94 

FLOATING 

PT. 

95 

FLOATING 

PT. 

96 

FLOATING 

PT. 

97 

FLOATING 

PT. 

98 

FLOATING 

PT. 

99 

FLOATING 

PT. 

100 

FLOATING 

PT. 

101 

FLOATING 

PT. 

102 

FLOATING 

PT. 

103 

FLOATING 

PT. 

104 

FLOATING 

PT. 

105 

FLOATING 

PT. 

106 

FLOATING 

PT. 

107 

FLOATING 

PT. 

108 

FLOATING 

PT. 

109 

FLOATING 

PT. 

110 

FLOATING 

PT. 

111 

FLOATING 

PT. 

112 

FLOATING 

PT. 


M.S SENSOR MAX* RAM A* IN DEGREES 

ELAt „£D T# IN SEC.OF DAY ©F M,S#2 S*MAX*RAM V* 

M.S. 2 SENSOR MAX. RAM VELOCITY IN KM./SEC. 

M.S. 2 SENSSR MAX. RAM A* IN DEGREES 
ELAPSED T.IN SEC.0F DAY SF R.H.l S.MAX.RAM V. 
R.H.l SENSSR MAX. RAM VELOCITY IN KM./SEC. 
R.H.l SENSSR MAX. RAM A* IN DEGREES' ' 
ELAPSED T.IN SEC.0F DAY 0F R.M.2 S.MAX.RAM V. 
R.H.2 SENSSR MAX. RAM VELOCITY IN KM. /SEC. 
R.H.2 SENSSR MAX. RAM A* IN OEGREES 


ELAPSED T.IN SEC.SF DAY ©F ASP.S.MIN.RAM V. 
ASPECT SENSSR MIN. RAM VELOCITY IN KM. /SEC. 
ASPECT SENSOR MIN. RAM A* IN DEGREES 
ELAPSED T.IN SEC.OF DAY OF ETP1 S. MIN. RAM V. 
ETP1 SENSOR MIN. RAM VELOCITY IN KM./SEC. 
ETP1 SENSOR MIN. RAM A* IN DEGREES 
ELAPSED T.IN SEC.OF DAY OF ETP2 S. MIN. RAM V. 
ETP2 SENSOR MIN. RAM VELOCITY IN KM./SEC. 
ETP2 SENSOR MIN. RAM A* IN DEGREES 
ELAPSEO T.IN SEC.OF DAY OF BA 1 S. MIN. RAM V. 
B.A.l SENSOR MIN. RAM VELOCITY IN KM./SEC. 
B.A.l SENSOR MIN. RAM A* IN DEGREES 
ELAPSED T.IN SEC.OF DAY OF BA 2 S.MIN.RAM V. 
B.A.2 SENSOR MIN. RAM VELOCITY IN KM./SEC. 
B.A.2 SENSOR MIN. RAM A* IN DEGREES 


ELAPSED T.IN 
M.S.l SENSOR 
M.S. 1 SENSOR 
ELAPSED T.IN 
M.S.2 SENSOR 
M.S. 2 SENSOR 
ELAPSED T.IN 
R.H.l SENSOR 
R.H.l SENSOR 
ELAPSED T.IN 
R.H.2 SENSOR 
R.H.2 SENSOR 
ASPECT SENSOR 


SEC.OF DAY OF MS 1 S.MIN.RAM V. 
MIN, RAM VELOCITY IN KM./SEC. 
MIN. RAM A* IN DEGREES 
SEC.OF DAY OF MS 2 S.MIN.RAM V. 
MIN. RAM VELOCITY IN KM./SEC. 
MIN. RAM A* IN DEGREES 
SEC.OF DAY OF RH 1 S.MIN.RAM V. 
MIN. RAM VELOCITY IN KM./SEC. 
MIN. RAM A* IN DEGREES 
SEC.OF DAY OF RH 2 S.MIN.RAM Ve 
MIN. RAM VELOCITY IN KM./SEC. 
MIN. RAM A* IN OEGREES 
AV, RAM VELOCITY IN KM./SEC. 


ETP1 SENSOR AV? RAM VELOCITY IN KM./SEC. 
ETP2 SENSOR AV. RAM VELOCITY IN KM./SEC. 


B*A*1 

SENSOR 

AV* 

RAM 

B* A# 2 

SENSOR 

AV* 

RAM 

M ©5* 1 

SENSOR 

AV* 

RAM 

M*S*2 

SENSOR 

AV* 

RAM 

R*H* 1 

SENSOR 

AV* 

RAM 


VELOCITY IN KM./SEC. 
VELOCITY IN KM./SEC. 
VELOCITY IN KM./SEC. 
VELOCITY IN KM./SEC. 
VELOCITv IN KM./SEC. 
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ASPECT TAPE FORMAT 


113 

FLOATING 

PT. 

R.H SENS®R AV. RAM VEL®CITY 

IN KM. /SEC. 


114 

FLOATING 

PT. 

ELARoED T. IN SEC.0F 

DAY ASP. S 

.MIN, SUN 

ANG 

i 

115 

FLOATING 

PT, 

ASPECT SENS0R MIN, SUN ANG, IN 

DEGREES 



116 

FLOATING 

PT, 

ELAPSED T.IN SEC.0F 

DAY ©F ETP1 S.MIN 

SUN 

A. 

117 

FLOATING 

PT, 

ETP1 SENSSR MIN. SUN 

ANGLE IN 

DEGREES 



118 

FLOATING 

PT. 

ELAPSED T.IN SEC.0F 

DAY OF ETP2 S.MIN 

SUN 

A. 

119 

FLOATING 

PT, 

ETP2 SENSSR MIN. SUN 

ANGLE IN 

DEGREES 



120 

FLOATING 

PT. 

ELAPSED T.IN SEC.0F 

DAY ©F BA 

1 S.MIN 

SUN 

A. 

121 

FLOATING 

PT, 

BA 1 SENS0R MIN. SUN 

ANGLE IN 

DEGREES 



122 

FLOATING 

PT. 

ELAPSED T.IN SEC.0F 

DAY OF BA 

2 S.MIN 

SUN 

A. 

123 

FLOATING 

PT. 

BA 2 SENS0R MIN. SUN 

ANGLE IN 

DEGREES 



124 

FLOATING 

PT. 

ELAPSED T.IN SEC.0F 

DAY OF MS 

1 S.MIN 

SUN 

A 

125 

FLOATING 

PT. 

MS 1 SENS0R MIN. SUN 

ANGLE IN 

DEGREES 



126 

FLOATING 

PT. 

ELAPSED T.IN SFC.9F 

DAY OF MS 

2 S.MIN 

SUN 

A. 

127 

FLOATING 

PT. 

MS 2 SENSSR MIN. SUN 

ANGLE IN 

DEGREES 



128 

FLOATING 

PT. 

ELAPSED T.IN SEC.0F 

DAY OF RH 

1 S.MIN 

SUN 

A. 

129 

FLOATING 

PT. 

RH 1 SENS0R MIN. SUN 

ANGLE IN 

DEGREES 



130 

FLOATING 

PT. 

ELAPSED T.IN SEC.0F 

DAY OF RH 

2 S.MIN 

SUN 

A. 

131 

FLOATING 

PT. 

RH 2 SENS0R MIN. SUN 

ANGLE IN 

DEGREES 



132 

FLOATING 

PT. 

T SUB 0 IN SEC0NDS ' 

OF DAY 




133 

FLOATING 

PT. 

T SUB F IN SEC0NDS ' 

OF DAY 




134 

FLOATING 

PT. 

BETA* M0M.VECT0R-5UN ®R M©0N 

angle IN 

DEG 

• 

135 

FLOATING 

PT. 

THETA. PREC.C©NE HALF ANGLE IN 

DEG. 



136 

FLOATING 

PT. 

PHI D0T »EULER I AN PREC.VEL. IN 

DEG. /SEC. 


137 

FLOATING 

PT. 

PSI D0T .EULER I AN SPIN VEL. IN 

DEG. /SEC. 


138 

FLOATING 

PT. 

R0TATI0N RATE IN DEGREES/SEC. 




139 

FLOATING 

PT. 

A SUB 0 





140 

FLOATING 

PT, 

B SUB 0 





141 

FLOATING 

PT. 

MEASURE OF ASPECT RELIABILITY 

IN DEGREES 


142 

FLOATING 

PT. 

1 OR 0 






0 = RA & DEC. SUN. 

1 = RA & DEC. MOON 


N0TF- 

1. A* MEANS ANGLE BETWEEN THE GIVEN SENS0R AND THE VELOCITY VECT0R 
END ©F FILE 

2 E0F»S F0LL0W LAST DATA RECORD. 
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SATCUltc .NU. * 6. CDIT * 32 7 IaBIT * 711 


SAMPLE PROGRAM OUTPUT 
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TO *1000.000 T! - 313.000 HO • 16.0U0 HI * lb. 000 



PRESSURE GAUGES OC OUTPUT VULTAGCS CONVERTED TO PRESSUKfc ANU DENSITY 1 
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T M lNlSEC) s 58&20.252 PITuRRS)= O.L2t-CH T NkAM t StC ) * S J aiO . 205 MIN. RAH VtL.= -G.b71 SN * -0.b7^E 01 


RHi ALT* LAT* -44.8 LONG* 134.5 L5T* 1.31 OP **-0.33£-10 TX^AM*b 8620. 765 KX * 2.129 DENSITY *3.233E-17 
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DENSITY PLOT TAPE OUTPUT (A6) 


EDIT = 327 ORBIT = 711 


* 


52058619.301 -s4.32 1 34. id 1.30 318.4P01>0. 0.398E-17C. 
52058620. 367 -44.39 1H.42 1.30 918.4PGO0.576C-130. 1A2E-16G. 
52003670.651 -*<*.7? 134. *6 1.31 91 b. 4PDOO. 386E-1 50. IE- 1 70. 
5205 £6? 1 • 901 -44.75 134.50 1.31 91 B.4PODO. 1G7E- 150. 740E-1 70. 
520536'»2.A84 -44.72 134.54 1.31 91 8. 4PDD0. 25 1 E-l 50. 4P0E- 1 70. 
52t 5R623.35U -44.69 134.58 1.32 91 8 . 3PUD0. 347E-1 50 .5 ! 3E- 1 ?C . 
52056673.933 -44.67 134.62 1.32 91 6 . 3P900. 742E-160. 0. 
5205E6“>4.700 -44.64 134 . 06 1.32 91 5. 2 POUC. 107E-1 50 . ^ROE-170. 
52053625.383 -44.61 134.69 1.32 91 8 . 3PUD J.427E-1 60. 0. 
52058625.767 -44.59 134.73 1.33 91 3. 3PDD0. lOf E-l 50 . 260E-1 70. 
52058676.350 -44.5b 134.77 1.33 916.2PODO. O. 0. 
52056677.217 -44.54 134.81 1.33 918.3PUD0. C.137E-170. 
52058677.763 -44.51 134. C5 1.34 9l5.3Pm>G. O.ingfc-UO. 
52058678. 65o -44.48 134.69 1.34 91 8 . 3PUno. 264 E- 1 50 . 97 ttE- 1 70. 
52056629.633 -44.46 134.93 1.34 91o.3PODO. 0.337E-160. 
5205 867 0. 3 00 -44.43 134.97 1.34 91 6. 3 POOO .236E-1 50 . 761E- 1 70 . 
520536^1.066 -44. 135,01 1.35 91 6.2PDOO. 339E-UC. 1 76E-U0. 
52058671.750 -44.36 135.04 1.35 91 8 .2PDD0. 745E-1 60 .5 «3f- 1 70. 
5205e632.43j - 44.35 135. Cb 1.35 91&.2PUD0. 0. 0. 

52058632.916 -^4.33 135.12 1.35 91 3. 2 PDU3.<*GCE-1 50 . 0. 
52058673.399 -44.30 135.16 1 . 3 o 91t-.2PnU0. 0.128E-170. 
52 C 58673-982 -44.28 135.20 1.36 918.2POD0. 0. 0. 

52056634.916 -44. 23 133.23 1.36 916.2PDP0. 0.553E-17C. 
52058635 • 899 -44.77 133.27 1.37 91 8 . 2POU0.247E- 1 50 . 11 7E- 1 t u . 
52058676.562 -44.20 135.31 1.37 91 8. 1P0P9. 22 1 E- 1 50 . 477E- 1 7 0. 
52058676.866 -4**.i7 135.34 1.37 91 S. 1P0U0.463E-1 30 . 14&E-160. 
52058636.032 - 44.15 135.36 1.37 91 3. 1POOO. 224E-1 50. 499E- 1 70. 

52058678.616 -44.12 135.42 1.33 91 8. 1 PDO0.354E-1 5C . 2*1E-1 7 0 . 
52058679.382 -44.09 135.45 1.38 91 6 . lPDno.529t-15P.9i 5E-1 70. 
52058679.966 -4*. 07 135.49 1.33 91 3.1PUD0. 359E-1 50.466C-1 70. 
52058640.832 -44.04 135.53 1.36 918. 1P000. 572E-150. 71 70- 1 70. 
52058641.516 -44. C2 135.56 1.39 913. 0PDDC.337E-170.249E-17G. 

52058641.616 -43.99 135.60 1.39 91 £. OPUHO. 385E-1 50. 0. 

52058642.965 -43.97 135.64 1.39 918.CPODO. 0.383E-170- 

52058543.648 -43.94 135.66 1.39 916.0PDU0. 3UE-153. 0. 
52058644.314 -43.91 135.71 1.40 91 3.0PDU0.983E-160 .635E-1 70. 
52058644.696 -43 . HI 135.75 1.40 91 8. OPOOO. 5726-1 50. 190E- 1 6 0. 
52058645.765 -43.36 135.79 1.40 918.0PODO. 0.91SE-170. 

52058646.346 -43.84 135.62 1.40 917.9PDD0. 0.676E-170. 
52058646.946 -43.31 135.36 1.41 917.9PODO. 0.371E-160. 
52058647 . 79 d -43.73 135.90 1.41 91 7. 9PODO. 745E- 160 . 5 83E- 1 7 0. 
52058648.181 -43.76 135.93 1.41 91 7.9PDU0. 2 12E-1 50 . l^OE- 160. 
52058649.148 -43.7 3 135.97 1.42 91 7. 9PODO. 1 65E-150. 142E-16 0. 
520586*9.531 -43.71 136.01 1.42 91 7.9PDD0.214E-150.963E-170 . 
52058650.598 -43.68 136. C4 1.42 91 7. 9PDD0. 299E-1 50. 11 3E- 1 6C. 
52058651.281 -43.65 136. C 8 1.42 91 7. 3PDO0. 297E-150 .9 15E- 1 70. 
52058652.064 -43.63 13o.l2 1.43 91 7. BPODO. 209E-150. 134E-1 70. 

52058652.648 -43.60 136.16 1.43 91 7. 8PDD0.209E-1 50 . 0. 
52058652.331 -43.57 136.20 1.43 91 7. 8 PDD 0 . 951E- 160. 71 7E- 1 70. 

52058653.897 -43.54 136.24 1.43 91 7. 8POOO. 308E-1 50 . 533E- 1 70. 
52058654.560 -43.51 136.27 1.44 91 7. 7PDD0. 332E-160. 127E- 1 70. 

52058654.897 -43.49 136.31 1.44 91 7. 7PD00.476E-150. 1ME-1 70. 
52058656.130 -43.46 136.35 1.44 917. 7PDOO. 193E-150.260E-170. 
52058656.414 -43.43 136.39 1.45 91 7.7POD0.237E-150.631E-170. 
52058657.580 -43.40 .36.43 1.45 91 7. 7PDD0.2 82E -150. 116E-1 70. 

52058658.347 -43.37 136.47 1.45 917.6PDOO. 0.107E-160. 
52058658.930 -43.35 136.50 1.45 91 7. 6 PDOO. 864E- 1 60. 958E- 1 7 0. 
52058659.713 -43.32 136.54 1.46 91 7. 6 PDOO. 279E-1 60 .248E- 1 70 . 

52058660.301 -43.29 136.58 1.46 917.6PDD0. 0.110E-160. 

52058660.965 -43.26 136.62 1.46 917.6PDD0.276E-16Q.995E- 1 70 . 


0 . 

0 . 

0 . 

0 . 

0 . 
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0. 

o; 
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0 . 
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0 . 

0 . 
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PRESSURE PLOT TAPE OUTPUT (B6) 


EDIT = 327 ORBIT = 711 


5.0 20.00. 565t 010.122E 010 . I <*66-005 86 L 9 . 869 0.000 0. 0. 0000 . 1 1 1 E-08 -8.95625 5055. 

5.0 20.00. 565fc 010.122E 010. 14 6E -0058619. 985 0.C00 8.947 0.0000 . 1 35E-08 -8.86846 5164. 

5.0 20.00.5656 010.122E 0 10 . 1 4bE -005 86 1 9 . 902 0.000 17.894 0.0000.130 6-08 -8.88609 5142. 

5.0 20.00. 565E 010.1226 010.1466-0058619.918 0.000 26.841 0.00^0.1206-08 -8.92125 5098. 

5.0 20.00.5656 010.122E 010 . 1466-005861 9. 935 0.000 35.7d8 0. 0000. 1 1 16-08 -8.95625 5055. 

5.0 20.00. 565t 010.1226 0 10 . 1 466-00586 19 . 952 0.000 44.598 0.0000.1066-08 -8.97369 5033. 

5.0 20.00.5656 010.1226 010.1466-0058619.969 0.000 53.945 0.0000.9816-09 -9.00d45 4989. 

5.0 20.00.5656 010.122E 010.1466-0058619.985 0.000 62.892 0.0000.1026-08 -8.99109 5011. 

5.0 20.00.5656 010.1226 010.146E-0058620.002 0.000 71.639 0.0000.1306-08 -8.88609 5142. 
5.6 20.00.5656 010.1226 010.1466-0058620.019 0.000 80.786 0.0000.1266-00 -8.89935 5126. 

5.0 20.00.5656 010.1226 010.1466-0058620.035 0.000 89.733 0 . 0000 . 1216-08 -8.91696 5104. 

5.0 20.00.5656 010.1226 010.1466-0058620.052 0.000 98.680 0.0000.1166-08 -8.93454 5082. 

5.0 20.00.5656 010.122E 010.1466-0058620.068 0.000 107.627 0.0000.1066-08 -8.97369 5033. 

5.0 20.00.5656 010.122E 010.1466-0058620.085 0.000 116.573 0.0000.1116-08 -8.95625 5055. 

5.0 20.00.5656 010.1226 010 . 1466-0056620. 102 0.000 125. 7d4 0.0000.1026-08 -8.99109 5011. 

5.0 20.00.5656 010.1226 010. 1 46E-005 8620. 1 1 9 0.000 134.731 0. 0000. 102E-08 -8.99109 5011. 

5.0 20.00.5656 010. 1226 0 10 . 1466 -0058620. 1 35 0.000 143.677 0.0000.1256-08 -8.90369 5120. 

5.0 20.00.5656 010.1226 010.1466-0058620.152 0.000 152.624 0.0000.1256-08 -8.90369 5120. 

5.0 20.00. 565E 010.1226 010.1466-0058620.168 0.000 161.571 0.0000. 120E-08 -8.92125 5098. 

5.0 20.00. 565E 010.1226 010.1466-0058620.185 0.000 170.518 0. 0000 . 1206-08 -8.92125 5098. 

5.0 20.00.5656 010.122E 0 10 . 1466-0058620 . 202 0.000 179.720 0.0000.1116-08 -8.95625 5055. 

5.0 20.00.5656 010. 1226 010.1466-0058620.219 0.000 188.675 0.0000.1026-08 -8.99109 5011. 

5.0 20.00. 565E 010.122E 010 . 1 466-0058620. 235 0.000 197.622 0.0000.942E-09 -9.02576 4968. 

5.0 20.00. 565E 010.1226 010.14^6-0058620.252 0.000 206.569 0. 0000 . 120E-08 -8.92125 5098. 

5.0 20.00.5656 010.1226 010.1466-0058620.269 0.000 215.516 0.0000.1306-00 -8.88609 5142. 

5.0 20.00.5656 010.122E 010.146E-0058620.285 0.000 224.463 0.0000.1306-00 -8.80609 5142. 

5.0 20.00.5656 010.12 2E 010.146E-0058620.302 0.000 233.410 0. 0000 . 1 15E-08 -8.93077 5077. 

5.0 20.00. 565E 010. 1226 010.1466-0058620.318 0.000 242.257 0. 0000. 1 106-08 -8.96041 5049. 

5.0 20.00.565k 010.1226 010.1466-0058620.335 0.000 251.204 0.0000.1016-00 -8.99514 5006. 

5.0 20.00.5656 010.1226 010.146E-0058620.352 0.000 260.514 0.0000.972E-09 -9.01244 4984. 

5.0 20.00.5656 010.1226 010.1646-0058620.369 0.000 0. 0. 0000 . 9816-09 -9.00845 4989. 

5.0 20.00.5656 010.1226 010 . 1 64E-0058620. 385 0.000 8.947 0. 0000 . 135E-08 -8.06846 5164. 

5.0 20.00.5656 010.122E 010 . I 64E-0058620. 402 0.000 17.694 0.0000.1256-08 -8.90369 5120. 

5.0 20.00.5656 010.1226 010.1646-0058620.418 0.000 26.641 0.0000.1216-08 -8.91696 5104. 

5.0 20.00. 565fc 010. 1226 010 . 164E-005 8620. 435 0.000 35.788 0.0000.1126-08 -8.95208 5060. 

5.0 20.00. 565E 010.122E 010.1646-0058620.452 0.U00 44.S98 0. 0000 . 1076-08 -8.96957 5038. 

5.0 20.00.5656 010.1226 010.1646-0058620.469 0.000 53.945 0. 00^0 . l l 16-08 -8.95625 5055. 

5.0 20.00.5656 010.1226 010.1646-0058620.485 0.000 62.e92 0.0000.1026-08 -8.99109 5011. 

5.0 20.00.5656 010.1226 0 10 . 1 64E -0058620 . 502 0.000 71.839 0 . OOOC . 1156-08 -8.93877 5077. 

5.0 20.00.5656 010.1226 010. 1 64E-005 8620. 51 9 0.U00 00.786 0. 0000 . 125E-08 -8.90369 5120. 

5.0 20.00.5656 010.1226 010.1646-0058620.535 0.000 89.733 0. 0000. 120E-08 -8.92125 5098. 

5.0 20.00.5656 010.1226 010.1646-0058620.552 0.000 98.680 0 . 0000 . 1 15E-08 -8.93877 5077. 

5.0 20.00.5656 010.1226 010.164E-0058620.568 0.000 107.627 0.0000.1216-08 -8.91696 5104. 

5.0 20.00.5656 010.1226 010. 1 64E -0058620. 585 0.000 116.573 0. 0000 . 1 12E-08 -8.95208 5060. 

5.0 20.00.5656 010.1226 010.1646-0058620.602 0.000 125.784 0.0000.1036-08 -3.98702 5016. 

5.0 20.00.5656 010.1226 010.1646-0058620.619 0.000 134.731 0.0000.9426-09 -9.02576 4968. 

5.0 20.00.5656 010.122E 010 . 1 646-005 8620 . 6 35 0.000 143.677 0 . 0000 . 1256-08 -8.90369 5120. 

5.0 20.00.5656 010.1226 010.164E-0058620.652 0.00C 152.624 0.0000.1256-00 -8.90369 5120. 

5.0 20.00. 565t 010.1226 0 10 . 1 64E -005862 0. 668 0.000 161.571 0. 0000 . 1 31 E-08 -8.88170 5148. 

5.0 20.00. 565t 010.1226 0 10 . 1 64E- 0058620 . 685 0.000 17C.518 0.0000.1216-08 -8.91696 5104. 

5.0 20.00.5656 010.122E 010 . 164E -0058620. 702 0.000 179.720 0.0000.1126-00 -8.95206 5060. 

5.0 20.00.5656 010.1226 010 . 1 64£ -005 8620. 719 0.000 188.675 0. O000 . 103E-08 -8.98702 5016. 

5.0 20.00.5656 010.1226 0 10 . I 64E -005 3620 . 73 5 O.OOJ 197.622 0.0000.9906-09 -9.00443 4994. 

5.0 20.00.5656 010.122E 0 10 . 1 64E -005 d6 20 . 75 2 O.oOO 206.569 0. 0000 . 1076-08 -8.96957 5030. 

5.0 20.00. 5656 010.122E 010.1646-0058620.769 0.000 215.516 0 . 0000 . 1 35E-08 -8. 86846 5164. 

5.0 20.00. 565E 010.1226 0 10 . 1 646 -0053520 . 73 5 U.oCO Z24.463 0.0000.1256-08 -8.90369 5120. 

5.0 20 .00 .5656 G 1 0 . 1 2 26 0 10 . 1 64E -005 362 0 . 3 02 u.COG 233.410 0 . 1000 . 1 2 06-08 -8.92125 5093. 

5.0 20.00. 5656 010.1226 0 10 . 1 046-005862 0. 61 d 0.000 242.337 0.0000.1116-08 -8.95625 5055. 
5.C 20.00. 5o5t 010.12 26 0 10 . 1 646 -0056620. o35 O.uOO 251.304 0.0000.1026-08 -8.99109 5011. 

5.0 20.00.5656 010.1226 0 1 0 . 1 646 -005 rib ZO. 852 O.COO 260.514 0. 0000 . 1066-0 8 -8.97369 5033. 
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PRESSURE PLOT TAPI? OUTPUT (C5) 


EDIT = 327 ORBIT 


5*0 20. 00. 2096-060. 213E 
5.0 20.00. 2096-060. 2136 
5.0 20 .00. 209E-060. 21 36 
5.0 20. CO. 2096-060. 213E 
5.0 20.00. 209E-06Q.21 36 
5.0 20.00.2096-060.2136 
5.0 20.00. 209E-060.213E 
5.0 20.00.2096-060.2136 
5.0 20.00. 2096-060.2136 
5.0 20.00. 2096-060. 213E 
5.0 20.00.2096-060.2136 
5.0 20.00.2096-060.2136 
5.0 20.00.2096-060.2X36 
5.0 20.00.2096-060.2136 
5.0 20.00.2096-060.2136 
5.0 20.00.2096-060.2136 
5.0 20.00.2096-060.2136 
5.0 20.00. 2096-060. 21 3E 
5.0 20.00.2096-060.2136 
5.0 20.00. 2096-060. 21 36 
5.0 20.00.2096-060.2136 
5.0 20.00.2096-060.2136 
5.0 20. 00.2096-060. 213E 
5.0 20.00.2096-060.2136 
5.0 20. 00. 2096- *>60.2136 
5.0 20. 00.2096-060. 2136 
5.J) 20.00.2096-060.2136 
5.0 20.00.2096-060.2136 
5.0 20. 00. 209E- 060.2136 
5.0 20.00.2096-060.2136 
5.0 20.00.209E-060.213E 
5.0 20.00.209E-060. 21 36 
5.0 20.00.209E-060.213E 
5.0 20.00.2096-060.2136 
5.0 20.00.209E-060.2136 
5.0 20.00. 2096-060.2 13E 
5.0 20.00.2096-060.2136 
5.0 20.00.2096-060.2136 
5.0 20.00.2096-060.2136 
5.0 20.00.2096-060.2136 
5.0 20.00. 209E-060. 2136 
5.0 20.00.2096-060.2136 
5.0 20.00.2096-060.2136 
5.0 20. 00. 2 096- C 60. 2 1 36 
5.0 20.00. 2096-060. 213E 
5.0 20.00.2096-060.2136 
5.0 20. 00. 2096-060. 213E 
5.0 20.00.209fc-C60.213E 
5.0 20.00.209E-060.213E 
5.0 20. 00.2096-060. 213E 
5.0 20.00.2096-060.2136 
5.0 20. 00.209E-060. 2136 
5*0 20.00.2096-060.2136 
5.0 20. 00.209E-060. 2136 
5.0 20.00. 20 9fc-0oG . 2 1 36 
5.0 20.00.2096-060.2136 
5.0 20.00.2096-060.2136 
5.0 20.00. 209fc-060.213E 
5.0 20. 00. 2096-060. 213E 
5.0 20. 00. 2096-060. 213E 


010.1016 

0958619.862 

7.549 

0 . 

01G.1016 

0958619.879 

7.549 

6.547 

010.1016 

0958619.896 

7.549 

17.894 

010.1016 

0958619.912 

7.549 

26.041 

010.1016 

0958619.929 

7.2*3 

35.788 

010.1016 

0958619.946 

7, 549 

44.598 

010. 1016 

0958619.962 

7.549 

53.945 

010.1016 

0958619.979 

7.549 

62.092 

010.1016 

0958619.996 

7.549 

71.839 

010. 1016 

0958620.012 

7.344 

80.786 

010.1016 

0958620.029 

7.037 

89.733 

010.1016 

0958620.045 

7.037 

98.680 

010.1016 

0958620.062 

7.248 

107.627 

010. 1016 

0958620.079 

7.549 

116.573 

010.1016 

0958620.096 

7.549 

125.764 

010.101E 

0958620.112 

7.549 

134.731 

010.1016 

0958620.129 

7.549 

143.677 

010.1016 

0958620.146 

7.549 

152.624 

010.1016 

0958620.162 

7.248 

161.571 

010.101E 

0958620.179 

7.248 

170.518 

010.1016 

0958620.196 

7.248 

179.728 

010. 1016 

0958620.212 

7.549 

188.675 

010.1016 

095 620.229 

7.549 

197.622 

010.101E 

0958620.246 

7.549 

206.569 

010.1016 

0958620.262 

7.549 

215.516 

010. 10 IE 

0958620.279 

7.248 

224.463 

010.1016 

0958620.295 

7.248 

233.410 

010.1016 

0950620.312 

7.760 

242.357 

010.9796 

0858620.329 

7.549 

0 . 

010.9796 

0858620.346 

7.549 

9.210 

010.9796 

0858620.362 

7.345 

18.157 

010.9796 

0858620.379 

7.052 

27.104 

010.9796 

0858620.396 

7.345 

36.C51 

010.9796 

0858620.412 

7.145 

44.598 

010.9796 

0858620.429 

7.145 

53.545 

010.9796 

0858620.446 

7.145 

63.155 

010.979E 

0858620.462 

7.345 

72.102 

010.9796 

0858620.479 

7.052 

81.C49 

010.9796 

0858620**96 

7.345 

99.996 

010.9796 

0858620.512 

7.345 

98.943 

010.9796 

0858620.529 

7.345 

107.890 

010.9796 

0858620.545 

7.345 

116.637 

010.9796 

0858620.562 

7.145 

125.784 

010.9796 

0858620.579 

7.145 

134.731 

010.9796 

0858620.596 

6.846 

143.941 

010.9796 

0858620.612 

7.052 

152.688 

010.9796 

0853620.629 

7.345 

161.835 

010.9796 

0858620.646 

7.385 

170.781 

010.9796 

0858620.662 

7. 184 

179.728 

010.9796 

0858620.679 

7.184 

iea.675 

010.9796 

0858620.696 

7.184 

197.385 

010. 979E 

085 8620* 712 

7.184 

206.332 

010.979E 

0858620.729 

6.334 

215.779 

010.9796 

0853620. 746 

6.SJ4 

224.726 

010.979E 

0358620.762 

7.091 

233.673 

010.9796 

0858620. 779 

?, 385 

242.620 

010,979fc 

0858620.795 

7.385 

251-567 

010.9796 

0858620.912 

7.386 

26C.514 

010.979E 

0859620.929 

7.3b5 

269.461 

010.979E 

0858620.846 

7.385 

278.671 


7.5490. 7506- 07 -7.12465 

7.4580.7506- 07 -7.12465 
7.1850.750E-07 -7.12465 

6.7380.7506- 07 -7.12465 
6. 1300. 721 E -07 -7.14231 

5.3550.7506- 07 -7.12465 

4.4850.7506- 07 -7.12465 

3.5450.7506- 07 -7.12465 

2.6000.7506- 07 -7.12465 

1.7360.7306- 07 -7.13665 
1.0370.7006-07 -7.15520 
0.5500.7006-07 -7.15520 
0.2590.7216-07 -7.14231 
0. 1110.7506-07 -7.12465 
0.0440.7506-07 -7.12465 
0.0180.7506-07 -7.12465 
0.0070.750E-07 -7.12465 
0.0030.7506-07 -7.12465 
0.0020.7216-07 -7.14231 
0.0010.7216-07 -7.14231 
0.0010.7216-07 -7.14231 
0.0010.7506-07 -7.12465 
0.0020.7506-07 -7.12465 
0.0030.7506-07 -7.12465 
0.0070. 7506-07 -7.12465 
0.0160.7216-07 -7.14231 
0.0400.7216-07 -7.14231 
0.1000.7716-07 -7.11271 

7.5490.7716- 07 -7.11271 

7.4520.7716- 07 -7.11271 
7.1740.750E-07 -7.12465 

6.7230.7216- 07 -7.14231 

6.1100.7506- 07 -7.12465 

5.3550.7306- 07 -7.13665 

4.4850.7306- 07 -7.13665 

3.5170.7306- 07 -7.13665 

2. 5730. 7506- 07 -7.12465 

1. 7130.7216- 07 -7.14231 

1.0200.7506- 07 -7.12465 
0.5380.7506-07 -7.12465 
0.2530.7506-07 -7.12465 
0.1090.7506-07 -7.12465 
0.0440.7306-07 -7.13665 
0.0180.7306-07 -7.13665 
0.00*0. 7006-07 -7.15520 
0.0030.7216-07 -7.14231 
0.0020.7506-07 -7.12465 
0.0010. 7556-07 -7.12226 
0.0010.7346-07 -7.13426 
0.0010.7346-07 -7.13426 
0.0020.7346-07 -7.13426 
0.00^0. 7346-07 -7.13426 
0.0070. 7036-07 -7.15281 
0.0170.7036-07 -7.15281 
0.0410.7256-07 -7.13993 
0.1030.7556-07 -7.12226 
0.2410.7556-07 -7.12226 
0.5160.7556-07 -7.12226 
0.9840.7556-07 -7.12226 
1.6890.7556-07 -7.12226 


= 711 


7344. 

7344. 

7344. 

7344. 

7322. 

7344. 

7344. 

7344. 

7344. 

7329. 

7306. 

7306. 

7322. 

7344. 

7344. 

7344. 

7344. 

7344. 

7322. 

7322. 

7322. 

7344. 

7344. 

7344. 

7344. 

7322. 

7322. 

7359. 

7359. 

7359. 

7344. 

7322. 

7344. 

7329. 

7329. 

7329. 

734*. 

7322. 

7344. 

7344. 

7344. 

7344. 

7329. 

7329. 

7306. 

7322. 

7344. 

7347. 

7332. 

7332. 

7332. 

7332. 

7309. 

7309. 

7325. 

7347. 

7347. 

7347. 

7347. 

7347. 
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PRESSURE PLOT TAPE OUTPUT (C6) 


EDIT = 327 ORBIT 


5.0 20.00. 209fc-0i .2136 
5.0 20.00.209t-060.213E 
5.0 20.00. 2096-060. 21 3E 
5.0 20.00.209t-060.2l3E 
5.0 20.00. 209E-060.213E 
5.0 20.00.209E-060.213E 
5.0 20.00. 209E-060. 21 3E 
5.0 20.00. 209E-060.213E 
5.0 20.00.209E-060.213E 
5.0 20.00.209E-060.213E 
5.0 20.00. 209E-060. 21 3E 
5.0 20.00.209E-060.2136 
5.0 20.00. 209E-060.213E 
5.0 20.00. 209E-060. 21 3E 
5.0 20.00. 209E-060.213E 
5.0 20.00* 20 9E -060. 21 3E 
5.0 20.00. 209E-060.213E 
5.0 20.00.209t-060.213E 
5.0 20.00. 209E-060.213E 
5.0 20.00.20 9E-G60.213E 
5.0 20.00. 209t-060.213E 
5.0 20.00. 209E-060. 21 3E 
5.0 20.00. 209E-060. 2136 
5.0 20.00. 209E-06G.213E 
5.0 20.00. 209E-060.213E 
5.0 20.00.209E-060.213E 
5.0 20.00. 209E-060.213E 
$.0 '20.00. 2096-060. 21 3E 
5.0 20.00. 209E-060.213E 
5.0 20. 00. 2096 -060. 2 136 
5.0 20.00. 209E-060. 2136 
5.0 20.00.209E-060.213E 
5.0 20.00. 209E-060.213E 
5.0 20.00. 209E-060.2I3E 
5.0 20.00.209E-060.213E 
5.0 20.00. 209E-06G.213E 
5.0 20.00. 2096-060. 213E 
5.0 20.00.209t-060.213C 
5.0 20.00. 209E-060.2 136 
5.0 20.00. 209E-06G.213E 
5.0 2 0.00. 2096-060. 2136 
5.0 20.00. 2U9t-060. 21 3E 
5.0 20.00.2096-060.2136 
5.0 20.00.2G9E-U60.21 3E 
5.0 20.00. 2U9t-06O.213£ 
5.0 20.00. 2096-060. 213E 
5.0 20.00. 2096-060.2136 
5.0 20.00.209fc-060.2136 
5.0 20.00. 209t-060.213E 
5.0 20.00.2096-060.21 36 
5.0 20.00. 209t-060. 2136 
5.0 20. 00. 2096-060. 21 3E 
5.0 20.00. 2096-060.21 3E 
5.0 20.0Q.209t-0o0.2l 36 
5.0 20. 00. 2096-060. 213E 
5.0 20.00. 209t-060.21 36 
5.0 20.00. 2096-060.2136 
5.0 20.00. 20 9c -060. 2 i 36 
5.0 20. 00. 2096-060.2136 
5.0 20.00.209c-06C.2l3E 


010.2576 

1156619. 301 

7.549 

0. 

010.Z57E 

1158619.317 

8.753 

8.547 

010.2576 

1158619.334 

8. 124 

17.694 

010.257E 

1158619. 351 

7.025 

27.104 

010.2576 

1158619. 368 

6.372 

36.051 

010.2576 

1158619.384 

5.564 

44.598 

010.2576 

1158619.401 

8.196 

53.545 

010.257E 

1158619.417 

8.431 

62.892 

010.Z57E 

1158619.434 

7.830 

71.839 

010.Z57E 

1158619.451 

7.025 

81.C49 

010.257E 

1158619.468 

6.110 

89.596 

010.257E 

1156619.484 

5.347 

98.943 

010.2576 

1158619.501 

8.431 

107.890 

010.257E 

1158619.518 

8.124 

116.837 

010.257E 

1158619.534 

7.549 

125.784 

010.2576 

1158619.551 

6.780 

134.731 

010.257E 

1158619.567 

5.949 

143.677 

010.257E 

1158619.584 

5.752 

152.624 

010.2576 

1158619.601 

8.508 

161.835 

010.257E 

1150619.618 

8.124 

17C.781 

010.Z57E 

1158619.634 

7.549 

179.728 

010.257E 

1158619.651 

6.547 

188.675 

010.257E 

1158619.667 

5.906 

197.622 

010.257E 

1158619.684 

6.780 

206.569 

010.2576 

1158619.701 

8.431 

215.779 

010.2576 

1158619.718 

7.830 

224.726 

010.2576 

1158619.734 

7.281 

233.673 

010.257E 

1158619.751 

6.547 

242.620 

010.257E 

1158619.760 

5.711 

251.567 

010.2576 

1158619.784 

7.830 

260.514 

010.257E 

1158619.801 

8.431 

269.461 

01C.257E 

1158619.817 

7.830 

278.400 

010. 2576 

1158619.834 

7.549 

287.355 

010.2576 

1158619.651 

6.323 

296.565 

0 1C • 2 576 

1158619.868 

5.525 

305.512 

01C.257E 

1158619.884 

0.124 

314.459 

010.2576 

1158619.901 

8.753 

323.406 

010.257E 

1158619.917 

7.030 

332.353 

01C.257E 

1158619.934 

7.025 

341.300 

010.237E 

1158619.951 

6.110 

350.510 

010.257E 

1158619.968 

5.347 

359.457 

010.257E 

1158619.984 

8.431 

368.404 

010.2576 

1158620-001 

8.124 

377.351 

010.257E 

1158620.018 

7.614 

386.29b 

010.257E 

1158620.034 

6.835 

395.245 

010.2576 

1159620.051 

6.156 

404.192 

010.318E 

1158620.067 

7.549 

C. 

010.3186 

1158620.084 

11.068 

8.947 

010.3166 

1158620. 101 

10.816 

18.157 

010 . 3 IbE 

1158620.118 

8.997 

27.104 

010.316E 

1158620.134 

8.089 

36.C51 

010.3186 

1158620. 131 

7.05 7 

44.998 

010. 3166 

1158620. 167 

8.680 

53.945 

010.3186 

1158620.194 

10.418 

62.892 

nc. 3186 

1158620.201 

10.C38 

72.102 

C 10 . 3 IbE 

1158620.218 

0.997 

81.C49 

OIC. 3166 

1158620.234 

7.613 

89.996 

010.318E 

1158620.251 

7 • v>5 7 

9d * 5 4 3 

010.3166 

1158670.268 

9.67 5 

107.690 

UlO. 316E 

1 153620.284 

10.416 

116.037 


7.5490. 2936- 0 - 9.53268 
7.458Q.340E-09 -9.46042 
7 • 1 850 .316E-09 -9.50083 
6.7230.273E-09 -9.56394 
6.U00.24BE-09 -9.60634 
5. 3550.2166-09 -9.66523 
4.4850 .318E-09 -9.49699 
3. 5450.3286-09 -9.48470 
2.6000.304E-09 -9.51683 
1.7130.273E-09 -9.56394 

1.0200.2376- 09 -9.62457 
0.5380.208E-09 -9.68246 
0.2530.3286-09 -9.48470 
0.1080.3166-09 -9.50083 
0.0440.2936-09 -9.53260 
0.0180. 263E-09 -9.57934 
0. 0070. 231 E-09 -9.63614 
0.0030.223E-09 -9.65077 
0 • 0020 . 331E-09 -9.48077 
0.0010.316 E-09 -9.50083 
0.0010.2936-09 -9.53268 
0.0010. 2 54 E-09 -9.59458 
0.0020.229E-09 -9.63931 
0.0030.263E-09 -9.57934 
0.0070. 32 8E -09 -9.48470 
0.0170.304E-09 -9.51683 
0.0410.2836-09 -9.54839 
0.1030. 2 54 E-09 -9.59458 
0.2410.222E-09 -9.65387 
0. 5160. 304E-09 -9.51683 
0.9840 .3206-09 -9.48470 
1.6650. 304E-09 -9.51683 

2.5170.2936- 09 -9.53268 
3* 4870. 2 46 E-09 -9.60966 
4.4300.215E-09 -9.66826 
5.3050. 316E-09 -9.50083 
6.0640. 3406-09 -9.46842 
6. 6900. 304 E-09 -9.51683 
7.1520.273E-09 -9.56394 
7.4460 .237E-09 -9.62457 
7.5490.208E-09 -9.68246 
7.4680.328E-09 -9.40470 
7.2070.316E-09 -9.50083 
6. 7700 .296 E-09 -9.52899 
6.1710. 266E-09 -9.57587 
5. 42 80.2 39E-09 -9.62132 

7.5490.2376- 09 -9.62457 
7.4580. 367E-09 -9.43549 
7. 1740. 3 40 E-09 -9.46842 
6.7230.283E-09 -9.54839 
6. 1100.2 54 E-09 -9.59458 
5. 3550.2226-09 -9.65387 
4.485G.273E-09 -9.56394 
3. 5450. 328E-09 -9.48470 
2 • 5730 . 3 16E-09 -9.50083 
1.7130.2836-09 -9.54839 
1.0200.2466-09 -9.60960 
0.5380.2226-09 -9.65387 
0.2530.3046-09 -9.51683 
0.1080.3286-09 -9.48470 


= 711 


4334. 

4414. 

4374. 

4295. 

4242. 

4168. 

4379. 

4394. 

4354. 

4295. 

4219. 

4147. 

4394. 

4374. 

4334. 

4276. 

4205. 

4187. 

4399. 

4374. 

4334. 

4257. 

4201. 

4276. 

4394. 

4354. 

4315. 

4257. 

4183. 

4354. 

4394. 

4354. 

4334. 

4238. 

4165. 

4374. 

4414. 

4354. 

4295. 

4219. 

4147. 

4394. 

4374. 

4339. 

4200. 

4223. 

4219. 

4456. 

4414. 

4315. 

4257. 

4183. 

4295. 

4394. 

4374. 

4315. 

4233. 

4183. 

4354. 

4394. 
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SAMPLE PLOTS 
FROM 

SELECTED PASSES 
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DENSITY PLOT 


siort * - o.oio 



73 










RAW PRESSURE PLOT 



Til* 

OUl. BA? ORBIT - 877 PRESSURE KIN -.61CE-7 6015 


77 



■■■■■■■■ 

ini 



■SB 

irii 

nil 


JO.«0 )<).« 


Out. BA? ORBIT -1300 VP0F5 -LINE WORM-CIRCLE 00001 


PNORM-VPOFS PLOT 





PNORM-VPOFS PLOT 



OU!. BA2 ORBIT <1300 VPQFS -LINE PNOfltKIRCU 00001 


80 


r\ n o 


FORTRAN H LISTING (PDP) 


* CHARLES J HANLFY WfiV 2; RUILDING 11 

* DfttjC,p 

* Y^O 

* CAPOS column 

* LIFT P 

* c^'HP 

* LAOFL 
cjh 

PRF5SURF GAUGES DC SUTPUT V0LTAGFS C0NVERTED TK 
C0RRFCTFD I®N CURRENT 

OIVENSIPN A( 8) .B(255 ) .BV( 18) ,BI (18) »3V2 ( 1 8 > * B 1 2 ( 18>,VC(8).RI<8>» 
1VC2( 8) ,RI2 (8 ) »ELN< 18 ) »R I C ( 8 > »R2C ( 8 ) ,BV1 ( 18 ) • VC1 ( 8 ) .R1C ( 8 ) »C ( 2 1 ) ♦ 
70(21) *RSCX<4 ) * RSX ( 4 ),RSl(4 ),RS2(4 ),RSC1(4 ),RSC2(4 ).P(21).T<2 
31 ) .RA1 (90*A ) »BA2<9C»4) »RFD1 ( 90.5 ) »RF02 (90.5) . E ( 209 ) . F ( 1 42 ) 

1 ♦ XTIMEI30) »XALT ( 30) *XLAT ( 30 ) tXL0NG( 30) .XLST ( 30) .XRBA1 (3 

1 9 ) , X°RA2 (30) »XR9H1 (30), XRRH2(3C) 

CSMM6N BI *BV1*BV2»VC1*VC2»RI ,R 12 »XHF ,XMF, XLF ,X2HF ,X2MF , X2LF »XHL. 
1XML,XLL,X2HL,X2YL,X2LL,NEDI ,NSRB 

1 .XTIME.XALT »XLAT*XL0NG.XLST»XR8A1»XRBA2»XRRH1»XRRH2 

NP7A = C 
PRRB PPAO 970,N r OI ,N0RR 

IFINFDI ) 9981 .960.9981 
9981 IF(NR7A)964. 8889.964 

8889 CALL M ATCH(NFOI ,NFn ) 

I c ( NPD-1 ) 8891 .964,8891 
PRO] IF(N°7A)964, 8890,964 
964 P p I NT 9P6 
PA"SF 777^ 

CALL MATCHtNFOI »NPO) 

I F ( NFO— 1 )8890.8888,8890 
ppoo pfad tapf if, a 
pfA.O TAPF 5 »E 
CALL OFN 

WRITF ©UTPUT TAPE 6 ,9999,NEPI ,N0RB 
WRITF ©UTPUT TAPE 16.9999. NEOI ,N©RB 
WRITF ©UTPUT TAPE 25 ,999 9, NED I »NQRB 
'•IP J TF Pt'TPUT TAPF 26 *9999 ,NFDI ,N©RB 
9999 FORMAT (99X6HEDIT = 14 , 1OX7H0RBIT =14) 

N9FF=F ( ?99 ) 

rv? HOC JA = 1,NRFC 
pfap TAPF 5 , F 
XTIVF( JA )=F(3) 

XALT(JA)=F(12) 

XLAT ( JA ) =F (11 ) 

XL^NF-I JA)=F( 10) 

XLST ( JA ) =F ( 1 3 ) 
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XRRAK JA ) =F ( 61 ) 

XRBA2 ( JA ) =F ( 64 ) 

X RRH] ( JA ) =F ( 73 ) 

XPRH2(JA)=F<76> 
ll?n C'-'NT IN' IF 
N®X * 0 

NNX2 = MPFC +1 

6021 IF ( NNX7-NQX ) 5022 * 5 * 22 *6020 
6020 N^X = N<*X +1 
BACKUP ACF 6 
G© T ® 5021 

5022 IF(A(8)-60000004»)2»3»2 

C PRINT ERRSR M E SSAGF - WR0NG TAPE 

2 PRINT 200 
G© T© 8888 


3 A ( 4 ) =A ( 4 ) +60 , 

WRITF OUTPUT TAPE 3 *600 . A (1) »NFD I ,N©RB , A t 2 ) . A ( 3 ) » A ( 4 ) ♦ A t 5 ) » A ( 6 ) * A ( 
1" ) 

iriSFNSF SWITCH 2)3038,3036 
3 0 36 SFNS0R= 1 • o 

CALL PACT ( SENSOR ) 

3038 PFAD TAPF 15, R 
B(?)=R(2 ) / 1 0 00 • 

JHRSMN = P (2 ) / 360 0 • 

H RS FC = 3 6 0 0 * JH R S M N 
PSFC = P(2 )-HRSFC 
M S F C M N = P c F c / 6 0 • 

X^R =W.0FC^N*60 
M = p<;Fr-XRR 


C 

961 


C 


C 

C 


PACKCPACF 15 

WRITF RUT PUT TAPE 3 ♦ 1 2 1 2 1 * JHRSMN , MSECMN , RSEC 1 M 
R FAD INPUT CURRFNT TABLF FGRMAT 202 
PFAn 20? ,91 
A 1=1,18 

F LN ( I)=LF)GF(RI ( I ) ) 

A C^NTINUF 

READ REDHEAD CALIBRATION V®LTA"GES AND CURRENTS F0R REDHEAD 1 AND 2 
pfah 3nn 9 \/r l ,VC2 
P F A n 303, PI ,PI2 

R F AD 305 ,XHLtXMLtXLL,X2HL»X2ML*X2LL 

R FAD 203 ,T0*TI *W®,WI * H I D 

PFAD 3 0 5 ,XHFf X^Ff XLF tX2HF»X2MF f X2LF 

READ BAYARD ALPERT 1 CALIBRATION V0LTAGFS BY F0RMAT 20A 
PFAD ?0A ,P V 1 

PFAD BAYARD ALPERT 2 CALIBRATION V®LT AGFS BY FORMAT 204 
PFAn 204, PV2 
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AFTA1 = 19.5 
AFTA2=23.9 

p HTo=47?4249000no 

ipl0t=i 

T ! M F1 =0.0 
t ivr?a0 # r> 
t r j r ? = o • o 
TTMF4=0.0 
ir\’T = i 
JCNT » 1 
KCM T=1 
JPL^T = 1 
* PL^T = 1 

WRITF ©UTPUT TAPF 3*]2222*BV1 

WRITF ©UTPUT TAPE 3*13333*SV2 

V'R TTF PUTPUT TAPF 3,14444 

9 T T F PPTP»»T TAPF 3*219 

WRITF ©UTPUT TAPF 3*15553 *XHF *XMF *XLF ,X2HF *X2MF *X2LF 

WRITF PPTPUT TAPF 3*2 n 969*TF)*TI *W0*WI 
WRITF euTPUT TAPF 3 * 99570 * AFT Al * AFT A2 
PFAH TAPF 5 * F 
PFAO TAPF 5 * F 
I Ft F( 1 33) -0.0) 242, 240 *242 
240 WRITF OUTPUT TAPF 3*949 
24 2 RACKFPArF 5 

PATKOPACF 5 

jr ( crN|PF CWITCH 2)4044*4404 
4404 WRITF ©UTPUT TAPF 3*699 
r,P t© i i 

4044 W^ITF output TAPF 3*70n 

T r ( 0FN5F FVITTH 1)711,722 
722 W P I T F ®MTPflT TAPF 3,900 
P* T® 6111 

711 WPITF ©UTPUT TAPF 3*80^ 

6111 X=l. 

00 30 y=l,8 

Rir ( V)=|_©CiF(RI (V) ) 

30 C^NTINUF 

9 5 M=i f R 

R2C(M)=L*GF<RI2CMn 

06 r®NTlNUF 

nr®N=SORTF ( ( 2 .0*831 50000 . *T I ) /WI ) 
vp j=nr^N 

VP0=SQRTF( < 2.0*8315C000.*T©) /W0)*1.OE-O5 
0^=. 05/48. 

XTNT=0. 
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X SP I N=0 • 

IX=1 
JX=1 
T T = 1 

MM=1 

TAPF 5,F 
Tn.AY=F(?n^) 
yMON) = F(7o?) 

PF4D TAPF R*F 

X CNT = XCNT + 1 . 

0992 R F AO TAPF 15*B 
R ( 2 ) =R ( 2 ) / 1 000# 

I F ( R ( 2 ) -F (132) ) 9902 ,2RR9 #2999 
2990 I F(R(2)-(F( 132) +21.0) ) 2299*2299* 1199 
1 100 RRAH TAPF 5 ,F 
XCMT=xrNT+l . 

T 2000 

2200 TSP I N = R ( 2 ) + .667 
n A.r < fpacf is 
ion ah tapf i 5 * P 
r>^ 57 K=1 *1R 
!_ = 2 c >*(fcr — 1 ) 

8282 J= 1 * 2 5 
I = J + L 
R(J)=R(I) 

82 82 C^NTINUF 

I F(R(1 ) -09999999# >5232*106 *5252 
5252 J = ^ 

R ( 2 )=R(2)/1000# 

I F(P( 2 )-T SPIN) 3415 *51 43*5143 
5 143 r c n j m = p ( p ) 

T F ( crsp I N-XP 2) -.7) 141*140*140 
141 I Ft (FSPIN-X92 )-.l ) 3415*70713,70713 
140 i r C JX-l >7071 3* 112 *70713 
3415 0^ 2343 l=l,18 

9 V ( I)=BV1 ( I ) 

2345 r^NTTNt'F 
1=1 

T { 3 ) = R ( 2 ) +C!^N* ( 3 • ) 

T ( 4 ) =P ( 2 ) +C^N* 1 9 • 

T(3) = r(2)+C( : 'N*35. 

?o I F < J-6)7*8*7 
7 T F ( ° ( J ) — R V ( I ) >6*11 *12 
12 T=T+t 

T F ( 1-10)7*14*14 
14 1=1 
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c« ji=oo.oo 

P( J)*00.00 

j=j+i 

IFCJ-12129.25.29 
6 1F( 1-1)0, 89.9 
BB rij)=OO.no 
p< 

J=J+1 

1=1 

I F( J-I 2 129.25.29 

9 CLN*FLN( 1-1 )♦( ( BC Jl-BVl I ~1 » » / 1 BV C I 1-BV1 I— 1 > ) >*CELN( I l-FLNl 1-1) » 

G» TP IB 

11 CLN=FLN(n 
15 X I C N=FXPF ( CLN ) 

C< J)*XI©N 
J=J+1 
1=1 

I C (J-12)29*25»29 

C START «F 3AYARD ALPFRT 2 CBMPUTATI9N 

B nP 20 1=1 .18 

PV( 1 >=BV2 ( I 1+.075 

20 CBNTJNUF 

T«9)=BC2)+C9N*5. 

T(10)«B(2)+C©N*21. 

Till )=B(21+C6N*37. 

J*9 

1*1 

I'M J-1217.25.7 

C START BF REDHEAD C©MPUTATI©NS 

25 DVC=(XHL-XHF+XML-XMF+XLL-XLF 1/3.0 
T 11 5 ) =91 2 )+CBN*10. 

T<]M=RI?>+r©N*26. 

T (17)=B(2 >+rBN*42. 
ora 5432 vi«i,8 
VC(M)»VC1 C M > 

5432 CBNTTNUF 

r>© 532A M«l.b 
R|C(V)«P1C(9) 

5324 CBNTJNUF 
J=1 5 

Ms] 

55 I F ( J— 1 8 141.42 .41 
41 I C (J-21 15] .77.51 
51 Ol J)=B( ji+ovr 

I«MDt 161.71 .72 

7 ? 
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IF(v-9)51 ,75,75 
75 Mai 

C( J)=00.00 
n( J) =00,00 
p ( j) =oc. on 
j = j+i 

0® TW 35 
7i r°N=&ir(M) 
n ( j ) = R { j ) 

GO TR PC 

51 rp( v_i)6?67, 99,6267 
90 r(J)=n^ # ^o 

n( j) =oc.oo 
j=j+i 

Ms] 

GO T® 35 

6262 CRN=RIC (M-l > + ( ( D ( J ) -VC ( M-l ) ) / < VC ( M ) - VC ( M- 1 ) ) ) * ( R IC ( M ) -R IC ( M-l ) ) 
Q 0 X T®N=FXPG (CRN ) 
r ( j)=xi*n 
j = j+i 

V = 1 

G® T/» 35 

C 5 T APT ®F RFDHFAO 2 CO^PUT Ml ®NS 

47 0® °1 M =1 ,8 
\/C(^)=VC2 (M> 
oi r^^TlNI'F 

no 722 M=!»8 
RIC(vj=R2C(M) 

222 r®NTTMUP 

T (1R)=BI? )+C®N*ll, 

T ( 1 O ) =B ( 2 ) +C®N*27 • 

T ( 7 0 ) =P ( 2 )+G®N*43. 

DVC= ( X2HL-X2HF+X2ML-X2MF+X2LL-X2LF )/3.0 
J = l* 

m = -j 

G® T® 41 

C START ®F REOHFAO COMPUTATION F®R PRFSSURE 

77 n® 1724 J = 1 5 , 1 7 

I F ( C ( J ) — 1 ,05-09) 789 ♦987,987 
789 5 P 9 x = 1 0 , 

S O S X A = C , 

GO T® 4047 

087 I r ( G ( J ) -1 .0F-08 ) 2 332 .7 282, 1 1 17 
7 97? S o S X r 7 , ?2 

5PCxA = ,60r-.|o 
G® TO 4047 
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1117 IF(C(J)-1.01E-08>2332»2227,; 7 

2227 IF (C( J1-1.0E-07 >3337,3337,4447 
3337 6RSX=9.3 

SRSXA=.42F-09 
T» 4047 

4447 I C (C(J)-1»01E-D7)3337»5557,5557 
5357 I p(C( J 1-1.0F-06) 6667,6667, 8887 
6667 GP^XslG.o 

6P6XA = .45F-08 
G® TP 4047 

8 0 87 I P(F( J)-l .OIF-06 >6667,0097, 9097 
9007 IF(C(J)-2,8F- 06)2027, 2 02 7,3037 
2027 89SX=16.9 

S»6XA=.34F-07 
GP TP 404,7 

3037 IF(C( J1-2.B1 £-06)2027,2727,2727 
2727 IFtC(J)-l*0F- 05)2828, 2828,3838 
2828 oPe,X = 10.R 

opcxa=-.59F-07 
GP T» 4047 
7888 FPcy-io. 
cpcxasO, 

4047 P ( J)= (Ct J) /SRSX >+SR?XA 
PFOI ( II.1)=T(J) 

RFni ( 1 1 ,2 )==>( J) 

RFOl ( 11,3) =0 ( J ) 

°Fni ( 11,4) =C ( J ) 

PFni ( 1 1 , 5 ) = P ( J ) 

I 1 = 11 + 1 
1234 CONTINUE 

np 4321 j= l 8 ,20 
I F t C t J)-1,0F-09)71 11,7222,7222 
7111 8P5X=10, 

5P8XA=0. 
r,8 TP 7808 

7222 I F(C(J)-1.0E-08 >7333. 733 3,7444 
7333 0P'X=4.?2 

8P5XA=.61F-10 
GP TP 7808 

7444 IF(C( Jl-1.0 IE-08 ) 733 3 ,75 5 5,75 5 5 
7555 !F(C( J)-l , 0E-07) 7666 .7666, 78B8 
7666 0P8X=6.22 

6P5XA=.23P-09 
GP TP 7808 

7RB8 I_F(C(J)-1, OIF-07) 7666, 71 01 ,7101 
71 01 IF(C( J)-l .OP-06 17202,72'' 2 ,73 03 
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770? *DCy-A #ft * 

73 03 I F{ C( J)-l .01F-06 >7202 *7404*7404 
7404 irtr ( J 1 - 2 . 8 F-C 6 ) 7505 *7505*7606 

7 'SOS ^r )y = , ]|P 

c P c XA = i?‘ ! ir-07 
<3 ^ f © 7 P ^ P 

7ft 06 T f“ f r ( J) -2 .8 1 r “06 ) 7SOR ,700^ *7003 
700ft !FtC(J)-1.0 ^06)7026, 7075, 70 3ft 

7073 c. o c y - 1 l # o 

cocy/\ = # ?7F_n7 
r.o 70 7 P^R 
7A-5i; c r> r y = 1 n # 

0OSXA=o # 

7P0P P( J) = (r ( J)/ r ~^X )+ORC X A 
prn?p.*‘M ) = T ( J ) 
orn? (Mv,p )=n ( J) 

DFn?(MM,3 J-0( J) 

°fp>? ( vv f 4 ) = r ( j ) 
pro? ( vv , 3 ) = p ( j ) 

yy = MM+ 1 
4 721 r^NTjNl'F 

C STA.PT OF BAYARD AL.PFRT 1 PRRSSt'RF COMPUTATION 

J< = 21 

444 IF(R(JK)-15.0)212f232f2]2 
732 fvi=o(JK+7) 

727 JK=JK+?^ 

IF< JK-271 >121*131*123 
131 GO T © 43 3 

121 TF(R (JK )-0. ) 323*322 *323 
372 ^? = R(JK + ?) 

GO Tto 43? 

212 IF(B(JK )-o. )41 1 *404*41 1 
404 FM?=Q(jy+7) 

661 J‘f = j^ + 7F 

T F ( JK-27 1 )676 *4 73 *676 
626 IF ( P ( JK )— 15*0)661 *6^6*661 
636 F M 1 =P f JK +2 ) 

GO TO 433 
411 JK = JK +2 6 

I F ( JK-2 71 1444*566*444 
555 IF ( X-l • 1433*422*433 
422 FMi*-o. 

FM?=-o. 

X=X+1 . 
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43^* SFN1 = (1.0/97 # 5)*Fvi 
F^N?=n .0/119.5 )*FM2 
X=X+1. 

n© 544 5 J=3*5 
Pf J ) =C ( J)/SFN1 
*A1 ( TXtl )=T< J) 

PA1 ( T X *2 ) =9 ( J ) 

Q A 1 ( IX*3)=C( J) 

*A1 { IX*4)=P( J) 

T X= ! X+1 
5445 CFNTINI'F 

HP 45S4 J=P* 1 1 
P( J)=C( J)/^EN2 
PA? { jy ,1 ) = T ( J ) 

«A?( JX*?)=9( J) 

9A?(JX*?)=C(J) 

9A2(JX*4)=P(J) 

J X= JX+1 
4554 C®NT1NUF 
X q 2=p(?) 

IF(SFNSF SWITCH 2)79712*70713 
70712 I F ( SFNSF SWITCH 1)654*456 

654 WRITF ©UTPUT TAPE 3 *400* B ( 2 ) * B < 3 ) *C ( 3 > *B ( 9 ) * C ( 9 ) *B < 1 5 ) * D ( 1 5 ) *C ( 1 5 ) 
i *«n«)*nn*M*rnp) 

WRITE ©UTPUT TAPE 3 * 500 * 3 ( 4 ) *C ( 4 ) *R ( 1 0 ) *C ( 1 0 ) * R < 16 ) * D ( 16 ) * C ( 1 6 ) * 

IP ( 1°) *H( 19) *C { 19) 

WRITF ©UTPUT TAPF 3 * 5 00 * B ( 5 ) *C ( 5 ) *B ( 1 1 ) * C ( 1 1 ) * S < 1 7 ) * 0 ( 1 7 ) *C ( 1 7 ) * 
19(20) *0(20) *C(20) 

G© T<* 5? 

456 WRITE ©UTPUT TAPE 3 * 1 000 * T ( 3 > * B ( 3 ) * C ( 3 ) * P ( 3 ) * T ( 9 ) » i3 ( 9 ) * C ( 9 ) « P ( 9 ) 

WRITE ©UTPUT TAPE 3 * 1 009 * T ( 1 5 ) *B ( 1 5 ) ♦ 0 ( 1 5 ) * C ( 1 5 > * P ( 1 5 > * T ( 1 8 ) * B ( 1 8 ) 
1 *n(l8 ) *f ( IB ) ,P< 18 ) 

WRITF ©UTPUT TAPE 3 ♦ 1 000 * T ( 4 ) * B ( 4 ) * C ( 4 ) , P ( 4 ) * T ( 1 0 ) * R ( 1 0 ) *C < 1 0 ) *P ( 1 
10) 

WRITE ©UTPUT TAPE 3 * 1 009 * T ( 1 6 ) *B ( 1 6 ) *0 ( 16 ) * C < 16 ) *P < 16 ) * T ( 1 9 ) * B (1 9 ) 

I ,nno) *C(]9)*P(19) 

WRITE ©UTPUT TAPF 3 * 1 000 * T ( 5 ) * B < 5 ) * C ( 5 ) * P ( 5 ) * T ( 1 1 ) * B ( 1 1 ) * C ( 1 1 ) *P ( 1 

I I ) 

WRITE ©UTPUT TAPE 3 * 1 009 * T ( 1 7 ) { 1 7 ) * 0 { 1 7 ) * C ( 1 7 ) * P ( 1 7 ) * T ( 2 0 ) *B ( 2 0 ) 
l*n(20)*C(20)*P(20) 

IX=! 

JX=] 

ii = : 

w= } 

T® 52 

^0713 JF(R(?) -TSPIN) 5?. 128*128 
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128 I F ( JX-2.1.112 » 1 12 1 113 
11.3 PMIN1=BA1 < 1 »<►> 

PMAX1=BA1 (1.4) 

T X= I X-l 

P© 7771 IXX=1.IX 

1 F ( PM I N 1 —BA 1 ( I X X » 4 ) (7772 .7773,7773 

7773 PMIN1=BA1 ( IXX.4 ) 

TMIN1=BA1 ( IXX.l ) 

BM I N 1 =BA 1 ( I X X * 2 ) 

CM J N1 =B A 1 ( I X X » 3 ) 

L M IM = IXX 

77 72 I F ( PVAX 1 —BA 1 ( I XX, A) 17774,7774,7771 

7774 PMAX1=BA1 ( IXX.4) 

TVAXl =BA 1 (IXX.l ) 
q v AX1 =BA 1 ( I X X » 2 ) 

C V AX1 = BA 1 ( IXX.3 ) 

L V AX1=IXX 

7771 C©NT I NUF 

I F (L M IN1-IX )449 .430.450 
447 l_ M INl = L M INl + l 

PM I N1 =BA 1 (LMIN1 .4) 

TMIN1 = BA1 (L.MIN1 ,1 ) 

RMIN1=BA1 (L m IN1 ,2) 

<"MIN1=BA1 (LMIN1 ,3) 

450 I^lLMAXl-l 1452.452.451 
431 l M AX1 =L M AX 1-1 

PMAX1=BA1 (LMAX1.4) 

TMAX1=BA1 (LMAX1 ,1 ) 

RMAX1=BA.1(L m AX1»2) 

CMAX 1=BA l ( L V AX l , 3 ) 

452 DFLP1=PMAX1-PMIN1 
XC©N=.667 

TRX1=F(6O)+XSPIN*XC0N 

64483 I F ( ABSFI TMAX1-TBX1 1 - . 335 ) 645 . 1 9065 . 1906 5 
19065 IF (TMAX1-TPX1 ) 1300, 1301.1302 

1300 TRXl=TBxl-.667 
G© TP 64483 

1301 G® TP 645 

1302 TRXl=TBXl+.667 
G© Tp 64483 

645 TBN1=F(P7)+XSPIN*XC©N 
63092 IF( ABSFI TM INI -TBN1 1-.335 136332.71363.71363 
71363 I FITMIN1-TBN1 13100.3101,3102 

3100 TRNl=TBNl-.667 
G© TP 63092 

3101 G© TP 36332 
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MO? T8Nl=TRNl+.667 
G® T ® 6^09? 

36332 SX8A1=F<61 ) /VP© 

S N9 A 1 =T ( 88 ) /VP© 

S=9xna i 

CALL F©S C 5 * FS ) 

F 9X = FS 
S = 5 N 9 A 1 

CALL F©S(S,FS) 

FSN=^S 

T F { SXRA1-0. ) 1 0480,15011, 15011 
15011 I F ( SXBA 1 — 1 • >81647,81647,91647 
91647 I F ( SN9 A ] — 1 * ) 69 1 79 , 1 4 1 94 , 14 1 94 
14194 09101= ( (PMAX1*1333. ) / ( 177245 • 39*VP I *F ( 61 ) ) ) 

08102= ( (0FLP1*1333. ) / ( 177245 . 3 9*VP I *2. 0* ( F ( 6 1 ) -F < 108) )) ) 

G® T © 36207 

6 9179 091 01= ( ( PMAX 1*1 333, ) / ( 177245 • 39* VP I *F ( 61 ) ) ) 

OBI 02= ( ( DELP1*W©*133 3. )/< 8 3150000,* ( SURTF ( T0*T I > )*(FSX-FSN) ) ) 
G 5) T® 362C7 
81647 D*1 01=0. 

OBI 02= < (DELP l*rt©*1333* )/ t 8315 0000** ( SORT F { T©*T 1 ) )*<FSX-FSN> ) ) 
G® T® 36207 
] 0480 081 01=9. 

n«l 02=0* 

36207 pvy N2=PA? ( 1 ,4 ) 

dvax?=8A2 ( 1 ,4) 

JX=JX-1 

O ® 5551 J J X = 1 , JX 

I F ( PM IN? -9 A ? ( JJX,4) ) 5 5 52 *6661 ,6661 
6661 P M I N 2 = P A 2 ( J J X , 4 ) 

T v I M 2 = B A 2 ( JJX, 1 ) 
n^IN?*P* 2 < JJX , 2 ) 

^wiN?=8A2( JJX,3) 

[ v j N? = J JX 

5 5 52 T F t PMAX 2-8 A 2 < JJX, 4) ) 6662,6662,5661 
666? P m A x ? = 9 A ? ( JJX ,4 ) 

T \* A V ? = B A ? { JJX , 1 > 

8VAX?=PA?t JJX,?) 
r v A x ? = P A ? ( J J X 1 3 > 
t_MAX2=JJX 

y x = jjx 

3661 r^NTi^(*F 

IF(LM I N2-JX >453,454,454 
453 L m I N? = LM T N2+1 

P m I N 2 = B A 2 ( L m I N2 , 4 ) 

T v j Mp = p A2 ( L v I N2 , 1 ) 
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n *'IN2=‘ , A2 (L M IN2*2) 
r ‘ / I N?=PA2 ( L M I N? , 3 ) 

454 IF(LX'AX2-1 1465,465,455 

455 L V AX2 = L'- , AX?-1 
P‘.'AX? = PA2 (L M AX2»4) 

T k ‘ A x 2 =R A 2 ( L ‘‘ A X 2 » 1 ) 
pv AX2 = PA2(L‘-*AX2»2 ) 
r*A AX2 = RA2 (L‘-'AX2,3) 

465 nFLP 2 = P'*'AX2-PVIN2 

T P 2 = F ( 6 3 ) +X 8 P I N*XCF)N 

400C4 IF(ABSF( TMAX 2-T ; 32 )-. 3 35 ) 44404 , 44444 , 44444 

44444 T F(TMAX2-TP2 )41 00.41 01 ,4102 

4100 TB?=TR2-«667 
OP Tp 40004 

4101 G® TP 44404 

4102 TR2=TP2+.667 
GP TP 40004 

44404 OP2= (<1 ' a 33.*OELP2 ) / < 1 77?45.3P*F (64) *DCSN| ) 
pnn2=0P2*l . b 3 
I F ( iplPT-4) 21 .21*22 

22 I c ( (FSPlNi-XB2)-29») 23,24*24 

23 I F(CSPIN-t TIME 1+60. ) 1416.416,26 

26 IFtTIMFl-60. >416,416,13 

13 GP TP( 3 737*416) ,ICNT 

24 Tp'ri=CFPlN 
TPlpt = i 
GP TP 416 

T7R7 T r NT = I GNT + 1 

IPI.PT = 1 

21 I F ( S C NSF SWITCH 3)416.214 

214 GF) TP(4] 2.41 3*413,415 ), IPL5)T 

41? PXX2=PWAX2 

XABQ=F (641-F (109) 

TXX2=TMAX2 
r - = F (64 ) / VPP 
CALL FPS(S.FS) 

XAVM= (VP5)*FS ) /PXX2 
OF) 418 JJX = LMAX2 * JX 

T HF T A = I ( P A 2 ( JJX, 1 )-TXX?)/.0l67)*9. 
THPAO=THFT A*. 01 745 3292 
S = ( F ( 1 0 0 ) +XA3B*CSSF ( THRAO ) ) /VP 3 
CALL FF>S(S,FS) 

VPPF 8 = VPP*F S 

PNNN = XA^*RA2 ( J JX ,4 ) 

XLP=. 43429448 *L®GF ( BA2 ( JJX ,4 ) ) 

XV=(XLP + 13. ) * 1 2 50# 
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WR I TP 6UTPUT TAPE 16*8001*A *A ( 3 ) * F ( 1 09 ) *X ABB *XAMM,BA2 ( J JX * 1 ) * 

1PNNN *THFTA*VPS>FS*BA2 (JJX*4) *XLP*XV 
41 fl CPNT I NUF 

IPL(?T=IPL@T + 1 
TXPLH=TXX? 

PX®LH=PXX2 
GFi TP 416 
41? KKX=L^AX2-1 

HP 318 JJX=1 * KKX 

THFTA= { (BA2 < JJX* 1 >-TXPlD)/*0167)*9. 

THRAO = THF T A* •017453292 

S=(Ff 1 ■ . 9)+XARB*C©SF ( T HR A 0 ) J/VP® 

r all pp.f ( F * c f > 

VPPFR=VPP*FP 
P NNN = X A?*M*Q A 2 ( JJX *4 ) 

X LP = * 4342944 8 *L0GF (BA2(JJX*4) ) 

X V = ( X L P + 1 3 • )*1250 # 

WRUF OUTPUT TAPF 16 ♦ 800 1 * A ( 2 > * A ( 3 ) * F ( 1 09 ) *X ABB * X AMM *BA2 < JJX • 1 ) » 
1PNNN,THFTA*VPPFS,RA2( JJX *4) *xlp*xv 
318 CP-NTTNUF 
GP TP 412 

415 I PLOT = 5 

416 PNPl*PFni (1,5) 

P XR] = RFO] (1*5) 

T T = I I -1 

HP 6556 KIT=ltIT 

TFtPNPl-RPOl ( < I I *5 ) ) 5067*5558*5558 
5568 PNR1 =Rrn] ( Y T I *5 ) 

TNR1 = &FD1 (<I 1*1 ) 

R\Rl=PFni(KII*2) 
nMR 1 = RFn i ( < I I , 3 ) 

FNPl= p Fni (KII *4) 

LNR1-KII 

505 7 IF(PXRl-RFOHKII*5 ) ) 5559 * 5 559 * 5556 
5559 PXRl = RFr>] ( K I I *5) 

TXR1 »PFD1 ( K I I * 1 ) 

BXRl = p F01 ( < 1 1 ,2 ) 

DXR1 =RFD1 ( K I I * 3 ) 

CXR1 = p Fni (KII *4) 

L W R 1-K 1 1 
L X = K I I 

5566 r®NTlNUF 

I c ( LNR1-I I ) 457 ,458 *458 
457 LNR1=LNR1+1 

PNRl=RFni ( LNR 1,5) 

TNR1 = RFD1 (LNR 1 * 1 ) 
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BNRl=RFni (LNR1.2) 
nNRl=PFni ( lnp l ,3 ) 

CNR 1 = RFO 1 ( LNR1 *4 ) 

458 IFILMR1-1 14-60 *460*459 

459 L v R1 =LM91 -1 

P XR 1 =RFD1 (LMR1.S) 

TXR1 =RFni (LMR1.1 ) 
nxRl=RFru (LMP1,?) 
nXRl=RFPl ( LMR 1 ♦ 3 ) 

CXR1=RFP1 { LMR 1 * 4 ) 

460 nRRPl = PXRl-P.NRl 
TR1=F(72 ) +XSP IN*XC3N 

50005 I F ( APSF (TXR1-TR1 )-. 335) 55505, 555 55 ,55555 
55555 I F ( TXP1-TR1 ) 4000,4001 *4002 

4000 T R 1 = TP1 - # 66 7 
GP TP 50005 

4001 GP TP 55505 
400? toi=tq]+.667 

CP TP 50005 

55505 0R1=( (1333.*r>ERPl )/( 177245. 39*F ( 73 ) *DC0N) ) 
POR1=OR1*1.83 
I F ( JPLPT-4 ) 31 *31*32 

32 IF( ( CSP I N-XR2 )-29. 0)33*34, 34 

33 IF(CSPIN-(T!ME2+60. ) 1516 *516.36 
36 IF(TlMF2-60. 1516.516.39 

39 G0 TP(725*516) ,JCNT 

34 T I mf 2 = rSPIN 

JPLPT = 1 
C,p TP 516 

725 JCNT = JCNT + 1 
JPLPT = 1 

31 IFIFFNFF SWITCH 3)516*215 
215 GO TPI512, 513, 513, 515) , JPLPT 
512 PXXR1=PXR1 
TXXR1=TXR1 
XRBR=F(73)-F(112) 

S=F(73)/VPP 
CALL F©S ( S * FS ) 

XMMVj=(VPP*FS ) /PXXR 1 

OP 4180 < I I =LMR 1*11 

THFT A= I ( RFD1 ( K I I * 1 ) -TXXR 1 ) / . 01 67 ) *9 . 
THRAO=THFTA*.0l7453?92 
S* ( F ( 1 1 2 )+XBRB*C0$F (THRAO) ) /VPP 
CALL FPS ( S ♦ FS ) 

VP0FFX=VP0*FS 
PNNN=XMMM*RED1 (KII *5 ' 
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XLP=#4?4?9448*LSGF( RF01 ( K! I )) 

X V = ( XL P + 1 3 • >*1250.9 

WRITF OUTPUT TAPE 25 * 8 30 1 * A t 2 J , A ( 3 ) * F ( 1 1 2 ) * XBRB * XMMM , RFD1 < K I I * 1 ) 
lPNNN*THFTA*VPGFSX«RFni ( KI I *5 ) ,XLP,XV 
A IPO rPN TIN'JF 

jPL^'r = JPL^ T + l 
T =T XXP 1 

P =py yp 1 

to 5 if 

533 LXX=LMR1-1 

rv- 3180 <II= 1 *LXX 

T HPT A= ( ( RFOl (K I I *1 ) -TX^Pl ) /• 0167 ) *9. 

THRAO=THFT A*. 01 7453292 

.5= ( F( 1 1 2 ) + X n B3*C£’ OF { TMPA O ) ) /vP •' 

r ALL F®5 ( c f rc ) 

\/p-?rr = VP^*F F 
PNNN=XMVM*rfhi ( K I I *5 ) 

XLP=.A3429448*L?C^(RFni (KIT ,5)) 

V V= f XI P + 13. >*1250.0 

WRlTF OUTPUT TAPE 25 .8301 ,A( 2 ) »A( 3 ) »F< 112 ) ♦ XF3B9 *X«MM,RFD1 (<I I .1 ) 
1 P,\NN * THFT A » VPSF S ,RFni ( K I I ♦ 5 ) »XLP » XV 

31 PO ^V^T j |\|I !p 

G? T* 512 

515 JPL^T = 5 

516 PNP?=RFD2 ( 1 *5 ) 

PXR2=PFH2 ( 1 *5 ) 

1 

4115 K«=l 

I F(PNP2-RFr>2 (<M,5 ) 13113,31 14, 311 4 
**114 PN92 = p FO? ( *",5 ) 

TfsjP2 = P c n2 ( <‘M ) 

RNP? = PFP2 ( ^ M ♦ 2 ) 
nNP2 = RFH2 I^S3) 

CNR2=RFn2CKV»4) 
t_N*2 = KM 

3113 IF (PXR2-RF02 (KM, 5 ) ) 41 14 * 4 1 14 ,4 1 1 5 
41 14 P XR2 = RF02 ( KM, 5 ) 

TXR2=RFD2 (<V*1 ) 

RXR2=RFH2 ( KM, 2 ) 

PXR2 = RF02 ( K M , 3 ) 
r XP2=RFn? ( K M ,41 
L M R2=KV 
MXaKM 

4115 r®NTlNUF 

I F ( LNR2-MM ) 46 I ,462*462 
461 LNR2=LNP2+1 



PNR2=RFP2(LNR2*5) 

TNR2 = RF02 ( LNR2 » 1 ) 

RNR2=RFR2(LNR2*2) 

nNR2=RFR2(LNR2»3) 

CNR2=RFP2 ( LNR2 * 4 ) 

■4*62 tF(LMR2-l >464,464,463 

4*63 [_mp? = L^‘P2 — ]. 

PXR2 = R p R2 ( L*-‘R2 .6 ) 

IXR2 = RF ri 2 ( LMR2 * 1 ) 

R XR2 = R r P2 ( L^R2 *2 ) 
nxR2 = R F P2 ( L^R2 *3 ) 
rxR2 = PPD2 ( LHR2 ,4) 

464 nPPP?=PX°2-PNR? 

IF(KPL0T-4)81*81,32 

8 2 IF ( ( CSPIN-XB2 ) -29.0) 83 *84* 84 

83 I FtCSPIN- ( TIME3+69. ) 1616*616,86 
86 TF(TIMF3-63. 1616*616*85 

85 GO T P( 72 6*616) • KCNT 

84 T I V F 3 = CSPIN 

X PL'*'T = 1 
P® T(A 616 

726 < TNT = KENT + 1 

KP|_®T = 1 

81 I F I SRNS C SWITCH 3)616*216 
216 GO TP(612*613*613.615) ,KPLPT 
612 PXXR2=PXR2 
TXXR2 = TX ,5 2 
XCRB=F(76)-F(113) 

S =F ( 7 6 ) /VP® 

CALL F®S(S»FC) 

XC"v= ( VP®*FS ) /PXX»2 

4) )P x».« = l'''R2 *M’-» 

THFTA.= ( ( RFD2 (K w * 1 ) -T X XR2 >/.0167)*9. 

T HR An=THFTA*. 017453292 

5= ( F( 113 ) +XCBR*C®SF ( THRAD) ) /VP® 

CALL p S)S < S * FS ) 

VP®F 6X = VP P*FS 

PMNN = XC»'M*RFD2 ( KM, 5 ) 

X LP = . 4342 9448 *L®G C (RFD2(KM,5 ) ) 

X V= ( XLP+13. ) *1250. 

WRITE OUTPUT TAPE 26 * 800 1 ♦ A ( 2 ) ♦ A ( 3 ) , F ( 1 1 3 ) ♦ XC Q R ,XC>'M,RFf>2 ( KM , 1 ) , 
1 P^NN ,THFT A* VPOFSX *RFH2 ( KM, 5) ,XLP,XV 
4118 CWNTJNUF 

<PL®T=KPL®T+) 

TX®R2= t XXR2 
p X®R2 = PXXR? 


t 


96 


GO TO 616 
613 vvix = LMR2-1 

0® 4121 KM=1»MMX 

THFT A= I (RP02{KM,1 1-TXSR2 )/.0167)*9. 

THRAD=THFT A*. 01745 3292 

S=(F( 113)+XCBS*CSSF(THRAO) ) /VPS 

CALL F®S(S,F5) 

ypptr6x=vpp*F6 

PNNN = XC f<v *R c 02 (CM, 5 ) 

XLP = . 4342 94 48* L®GF ( RF02 ( KM » 5 ) ) 

XV=(XLP+13. 1*1250. 

WRITF OUTPUT TAPE 26 ,800 1 » A < 2 1 , A < 3 1 , F { 1 1 3 1 » XCB9 »XCMM, RFr>2 < KM * 1 1 » 
1PNNN » THFT A » VPSFSX » RF02 ( KM, 5 ) *XLP,XV 
4121 CONTI NUF 

0® T a 612 

615 <PLST = 5 

616 TRN2=F(102)+XSPIN*XC®N 

74 851 I F ( ARSF ( TNR2-TRN2 )-• 335 ) 10368*85187,85187 
85187 I F(TNR2-TRN? 13000,3001,3002 

3000 T 0 AJ? = TRN2-»667 
GO TO 74851 

3001 GO TO 10368 

3 P02 TRN2 = TRN2 + ,667 
C,o TO 74851 

10368 TRX2 = F(75 )+X.SPIN*XCON 

142 02 I F ( ARSF (TXR2-TRX2) -.335 )7837 1,371 17,37117 
37117 IF (TXR2-TRX2 12001 ,2002,2003 

2001 TRX2=TPX2-.667 
G® T® 14202 

2002 G® T® 78371 

2003 TRX2 = TPX2 + .66"' 

G® T F> 14202 

7R671 ?XRFr>? = P(76) /VP® 

8NRP02= r (1 03 ) /VP® 

.5 = .5XPFr>2 
C ALL FPS(S,FS» 
r<;x? = PS 
G=5NPF02 
CALL FPS ( S * FS 1 
PSN? = P.5 

I ' r (5XRFD2-o. 191291 ,2 2368,22 368 
22368 I F ( 5XRF02- 1 . 146573,46573,25595 
25595 IFISNRF02-1 .185393,30995,30995 
3 0906 OR201 = ( ( PXR2*1 333. 1 / 1 1 77 24 5 . 30*VP I *F (76)11 

nR2 02=( ( OFRP2*l 333. >/< 1 7 724 5 .39*VP 1*2. 0* ( F I 76 1 -F ( 1 13 1 ) 1 1 
G® TP 89198 
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85393 r>R201 = t ( PXR2*1333. )/( 177245 9* VP I *9 ( 76 ) ) ) 

OR202=( ( DFRP2*W0*1333. )/ ( 83 * jOOCO . * ( SORT F ( T©*T I ) ) * ( FSX2-FSN2 ) I ) 
GW TW 89198 
46573 PR2 0 1 =0 . 

DR202=( ( DERH2*W0*1333. ) / l 83 1 50000. * < SC’RTF ( Tfe)*Tl 1 1 * ( FSX2-FSN2 1 ) ) 
GW TP 89198 


9129] 09201=0. 


092 02 = 9. 

89]98 99201=09201*1.83 
99202=09202*1 .83 

CALL iNTEPl TSPIiNS.NREC, YAlT, YLAT, YLitMG, YLST 1 


3 » 35 00.TMAX2 » BMAX2_»CMAX2 .PMAX2 
3.3510. Y ALT . YLAT . YL0NG. YLST »DELP2 . TB2 ,F ( 64 1 , 

3.3501.TMI N2 ,BM I N2 ,CM I N2 . P MI M2 
3.3610.TXR1, BXR 1 .0XR1.CXR1 »PXRl 
3.2531 .YALT. YLAT, YLaiMG. YLST, OERPl.TRl.FI 73). 


3 » 3961 5 » TNR2 ,PNR2»TRN2»F( 103) .SNRFD2 
6,8000. I MON , I DAY » TXR 1 , YLAT ,YL0NG, YLST .YALT • 
1HID.9DB2 ,RDR1 .RR201 .RR202 


WR I TF 

GUTPUT 

TAPE 

WRITF 

OUTPUT 

TAPE 

IOP2 ,9082 


WR I TF 

GUTPUT 

TAPE 

WRITF 

GUT PUT 

TAPE 

WRITE 

OUTPUT 

TAPE 

1 HR 1 ♦POP] 


WRITF 

GUTPUT 

TAPE 

WRITF 

GUTPUT 

TAPF 

write 

GUTPUT 

TAPE 

1 09202. RR202 


WRITF 

PUT PUT 

TAPE 

WRITE 

laUT PUT 

TAPE 


112 IX=! 

JX=1 
11 = 1 
MM= ] 

10(0(21- ( 9( 1321+21 .0) ) 2108,218,218 
2108 IF(TSPIN-(F ( 132 1+21 .0) 1281 ,218 ,21 8 
281 T?PIN=CSPIN+.667 
XSP 1 N=XF P I M+ 1 .0 
GP to F7 

218 I r ( XONT-r ( 209 ) 1 954.955 ,955 
955 V/9 1 T r PMTPUT TAPF 3,951 
G® TP 953 
954 R^AO TAPF 5.F 
XCMT=XCNT+1. 

I F ( B I 2 1 — ( F ( 132) +2 1.0)33303, 218,218 
33 3 03 IFITSPIN-JFJ 132 >+21.0) 133333,218.218 
33333 TSP I N = B (_2 )"+• 667 
X5PIN = 0._ 

5 2 CWMTINUF' 
gw tp loo 

106 W R I T F WIITPUT T AP F 3,990 


* 
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9F9 prifijNtn ] 5 
FND FTLF 3 

I F ( SFNSF SWITCH 4)335,334 

334 CALL PRFSS 

335 f no ^ILF 3 
FNn c; L i: & 

FTLF 16 
FAjn FTLF 2 5 
c Nn CRT 26 
MOT^ = l\JQ7& + I 
r,(T Tip PROF 

°6 a I C ( C FNSF SWITCH 4)983,981 
OR3 \|PP« = N>R7& 
r,<r tp op7 

981 NRRA = 7 *NR7 A 

982 PRINT 98 3 , NRRA » NR? A 
PRINT 9F0 

700 FORMAT (50X1H117H VRSNG TAPF ON R5 ) 

20? FORMAT (9F8.2/9F8. 2) 

703 FPRMAT(4F8.2,A3) 

204 p - orm a T ( 9 f 6 • 3 / 9 F 6 • 3 ) 

300 FORMAT (9^8.6/798.6) 

909 format I 9F8. 2/7^8. 2 ) 

9 05 format ( 6F6. 9 ) 

400 FdRMAT (6XF7.2,2XF6.3,3XE9.2,4XF6.3*4XE9.2*3XF6.3*4XF6.3,3XE9.2,3XF 
16.3,4XF6.3,3xF9.2) 

500 FORMAT ( 15XF6.3,3XF9.2,4XF6.3,4XE9.2,3XF6.3,4XF6.3,3XE9.2*3XF6.3,4X 

1F6,9,9XF9.7) 

600 FSRMAT ( 1 H149X 1 5HSATELL I TE Nd. =F8 .0 ,20X6HEDI T = I 4 , 5X7H0RB I T =14,// 
158X7HM0NTH =F8 . 0 , / /6 0X5HOA Y =F8. 0 , //59X6HYEAR =F8 . 0 , / / 52 Xl 3HST AT I 0 
2N NS. =F8.O,//48X17HANAL0G TAPF N0. =F8. 0 , //45X2CHPRFSSURE GAUGES 
3 I n =F1 5.0///) 

625 FSRMAT (30X15H SATELLITE NS. = F12 . 4 , / / 38X7HM0NTH =F 12. 4 , / /40X5HDA Y = 
1F12.4,/ /39X6HYEAR = F 1 2 . 4 , / / 32X 1 3HST AT I 0N N0. = FI 2. 44 , / / 28X 17HANAL0 
2 G TAPF NS. =F12.4,//30X15HS-6 ASPECT 10 =F15.4) 

699 FSRMAT ( 1H126X72HPRESSURE GAUGES OC 0UTPUT V0LT AGES C0NVERTEO T0 PR 

1FSSUPF ANO OFNSITY ////) 

700 F0RMAT ( 1H126X72HPRE5SURE GAUGES OC dUTPUT V0LT AGES C0NVERTED T© 10 
IN CURPFNT AND PRFSSUPF//// ) 

800 FSRMAT ( 6X 1 09HT IMF BA 1 CURRENT BA 2 CURRFNT 

1 RFD 1 AOJ CURRFNT RF0 2 AOJ CURRENT////) 

900 F0RMAT (6X107HTIME GAUGE V6LTS AOJ V0LTS CURRENT PRESSURE 
1 T IMF GAUGE V0LTS AOJ VSLTS CURRENT PRESSURE////) 

950 FSRMAT ( 35X27HALL DATA HAS BFF.Ni PR0CESSFD ) 

°69 FSRMAT (I HI llHFfgo pf JfPO /////////////////////////////////////) 

970 FSRMAT (14X14,10X14) 
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983 F0RMAT (23X13HFILES ON A3 = » //20X22HF I LES ON A6.36.C5.C6 =14) 

1000 FORMAT(3XF9.3,4XF7.3,13XE9.<.,3XE9.2,3XF9.3,3XF7.3,l2XE9.2,4XE9.2) 
1009 FORMAT! 3 XF9 . 3 . 4XF7. 3 ,4XF6 . 3 , 5XE9 . 2 , 3XE 9 . 2 , 3XF9 . 3 , 3XF7 . 3 .2XF6.3.4XE 
19.2.4XF9.2) 

2500 FORMAT (4X65HTIME (MAX) GAUGE ( VOLTS ) ADJ VO«_TS CURRENT 
1 PRESSURE (MAX)//) 

2520 FORMAT ( 4X66HT IMF! MIN) GAUGE ( VOLT S ) ADJ VOLTS CURRENT P 

1 RFSSURF (MIN)////) 

3610 FORMAT" (6X1 OHTMAXI SEC) = F9. 3.3 X 8 HV( VOLT) =F7. 3 ♦3X6HADJ V=F7. 3 , 3X7HC ( A 
1MP)=F0.2 ,3X9HP( TORRS ) =FR • 2 // ) 

3611 FORMAT (6X10HTMIN(SFC)=F9. 3 t3X8HV( VOLT ) =F7. 3 » 3X6HADJ V=F 7 . 3 » 3X 7HC ( A 
1MP)=F9.2 » 3X9HP ( TORRS)=F9.2///// ) 

37321 FORMAT (60X13) 

9990 FORMAT ( 9 OX T 2 ) 

9004 FWRVAT ( 79XF9.2 ) 

0003 FORMAT ( 59XF9. 2 ) 

0992 FORMAT ( 70XF9.2 ) 

999] FORMAT ( 4 ( 10XF9. 3 ) ) 

12222 FORMAT ( 1HC29X6H1BA1 9F6 . 3 . / 3 0X6H2B A 1 9F6.3) 

13333 FORMAT ( 1H029X6H1BA2 9F6 . 3 . / 30X6H2BA2 9F6.3) 

12121 FORMAT ( 1 HO //37X14HTIME - HRS = I2»5X5H.MIN =I2.5X5HSFC =F6.3) 
14444 FORMAT ( 1 H037X31H3A YARD ALPERT 2 DC SHIFT = .075) 

15555 FORMAT ( 1H937X12H FLIGHT CAL 6F6.3) 

20969 FORMAT ( 1H037X4HTO =F3.3 .2X5HTI = F7.3.2X5HM© = F7.3.2X5HMI = F7.3 
1 ) 

995 7 J FORMAT ( 1 H037X1 3HTORR/ AMP 1 = F7 . 3 * 6X 1 3HTORR/ AMP 2 = F7.3) 

35 K FORMAT l 3X3HBA2 . 4X4HAL T =F6 . 1 , 3 X4HL AT = F6 . 1 , 3X5HLONG=F6 . 1 , 3X4HLST =F6 . 
12 * 3X4HDP =E9.2 . 2X6HT XR AM=F9 . 3 , 2X4HRX =F7.3*2X9H DENSITY =E9.3/117XE 
29.3) 

2531 FORMAT < 3X3HRH1 .4X4HALT = F 6 . 1 ,3X4HLAT = F 6 . 1 ,3X5HL0NG=F6.1 .3X4HLST = F 6 . 
12.3X4HDP =E9 .2 » 2X6HTXRAM = F9 . 3 * 2X4HRX = F7 . 3 . 2 X9HDENS I T Y =E9.3/117X 
2F9. 3 ) 

19174 FORMAT ( 3X3HRH2 » 4X4HAL T = F6 . 1 , 3X4HLAT = F6 . 1 . 3X 5HLONG = F6 . 1 . 3X4HLST = F6 . 
12 * 3X9HDFLT A P =F9.2 » 3X 13HAVE .RAM VF L . = F7 . 3 . 3X9HDENS I T Y =E9.3/117X 
2F0.3) 

53402 FORMAT ( 3X3HBA 1 , 4X4HAL T =F 6 . 1 . 3X4HLAT= F 6 . 1 , 3X 5HLONG=F6 . 1 . 3 X4HLST=F6 . 

1 2 .3X9HDFLT A P =E9.2 . 3X 13HAVE.RAM VF L . = F7 . 3 . 3 X9HDENS I T Y =E9.2//> 
34095 FORMAT (6X1 OHTMAXI SFC )=F9. 3. 3X9HP( TORRS)=E9. 2.3X1 IHTxRAMI SEC) =F9. 3, 
1 3X 1 3HMAX . R AM VEL. = F5. 3.2X3 HSX = F11. 3.2X9 HD ENSITY =E9 . 3 / 1 17XE9 . 3 ) 
39615 FORMAT ( 6X10HTMI N ( SEC ) = F9 • 3 . 3 X9HP ( ToRR S ) =E9 . 2 . 3X 1 1HTNR AM ( SEC ) = F9 . 3 . 
14X13HMIN.RAM VEL. =F 7 . 3 . 2 X4HSN =F11.3/////) 

3500 FORMAT ( 6X1 OHTMAXI SEC ) =F9 . 3 .3X8HV ( Voi_T ) =F 7. 3. 3X7HC< AMP )=E9. 2 .3X9HPI 
1 TORRc )=F0 ,2//) 

3 501 FORMAT ( 6X 1 GHT.M I N ( SFC ) = F9 • 3 . 3X8HV ( VOLT ) = F7 • 3 * 3X7HC ( AMP ) = F9 • 2 * 3X9H? ( 
] T^PRC ) =P9 . 2 /////) 

279P? FORMAT ( 6X 1 OHTMAX ( SEC ) = F9 .3 ♦ 3X9HP ( TORRS ) =E9. 2 » 3X 1 1HTXRAM ( SEC ) =F9 • 3 ♦ 


100 


1-»X13H!*AX.RAV VFL.=F5.3.2X3H' =F 1 1 . 3 ♦ 2X9HDFNS I T Y =F9.2//) 

93965 FSRMaT ( 6X 1 OHTM I N ( SFC ) =F9 . 3 » „ ,,9HP ( TERRS ) =E 9. 2 . 3X 1 1HTNRAM t 5FC ) =F9 . 3 ♦ 
1AX13HMIN.RAM VFL.=F7.3*2 X4HSN =F11.3/////) 

8 300 FERvat (2 I2»F9.3»F7.2 .F8.2.F6.2.F6.1 .A3.4E9.3) 

8001 FERMAT (F4. 1,F5.1»E9.3.E9.3,E9.3,F9.3.F9.3»F9.3»F9.3,E9.3,F9.5»F9.0 


1 ) 

77276 FERMAT ( 1 0X3HS =F9.3»5X4HFS =F9 . 3 * 5X4HVPE=E9. 3 » PX4HRX =F9.3) 

951 F»RVAT ( 35X] 8HEN0 EF ASPECT DATA) 

2]o cwpmat ( 38X30HRH1 - 2.75 RH2 - 3.22 ) 

9 A 9 FERMAT (1 HC37X25H CALCULATFD ASPECT DATA ) 

986 FERMAT ( 1H1//////25X36HMEUNT NEW TAPF ®N 85 HUSH START //////) 

cAjn 

* rwonc cplhmn 

* L &pp L 
r vaTTH 


8 

? 

q 

u 

8 

6 

12 


1 

7 

10 

?n? 

204 

300 
208 

301 
11 


SUPRSUTINF MATCHCNFHI ,N) 

nTMFNSI^N 9(255)*F(209)?F{]42)*A<12) 

RFWINH 5 

prAO TAPF 1 3 * A 

R c A O TAPF 5 *F 

I F ( 99999996# 0—F ( 202 ) )!*!*? 

TF{ A{2)-r (202) 17,?, 7 
I F ( A ( 3 ) “F ( 2 p 3 ) )7,4»7 
IF(A{ 8)-F(?03> ) 7 * 3 * 7 
I r ( 5 • 0-AR8F ( A < 1 ] )-F { pOO ) UTi6»6 
I r ( A ( 1 0 )— F { 199 ) ) 7 * 1 2 * 7 
PACK8PACF 8 
N =0 

ratkfPACF 13 

GO TP 9 

PRINT 1 0 t NFO I 

G3 TP 11 

RF AH TAPF 3 * F 

T r (qqopoo96. -F(l))8t8*7 

F®RMAT(10X31HASPECT N3T AVAILABLE F3R EOIW = 14) 
format (fr.p/fr.?) 

FPRMAT(F6.3/F6.3/F6.3/F6.3 ) 

FPRMAT(F8.6/F3«6) 

F^PMA T ( r 6*3 ) 

F C*)RM AT ( F 8 • 6 ) 

RFAO 202 *R I *B I F 
RFAO 300 *RF *BE 
RFAO 202,PG*RH 
7FA0 206 *9 AC 
RFAO 301* p AE 
RFAO ? 06 *B A O 
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RFao 204,BA,BB,BC,RD 

.N = 1 

9 RFTUPN 

FNn 

* CAROS COLUMN 

SUBR0UT INF GTMC (A, 8 ,C, 0 ) 

TFSTMF(A) = S I GNF (M IN1F ( ABSF ( A ) » 1 .0 ) » A ) 

I F ( RAD ) 1 1 » 1 0 » 1 1 
10 RAO=57. 2957795 

THK. = 1 1 • A 9 A 
pwK=-69.68 
SX = S IN C ( THK /RAO) 
r K=CPSF ( THK /RAD) 
n p=a/rao 

i r>FL=r>-PHK 

IF (R - 180.0) 3,3.6 

6 DFL sDFL-180.0 
3 CT = SINF(F) 

CiiST = TE 6 TMF<CK*CT+SK*OSF(F)*CWSF<DFL/RAD) ) 

C = AS INO ( COST ) 

SINT =SQRTF ( 1 .3-CSST**2 ) 

ARC. = TFSTMF < ( CT-CK*CS5T ) / ( SK*SI NT ) ) 

0 = AC«'SO ( ARC ) 

A IF (OFL) 7,8,8 

7 0=0-180.0 

r,!J. T p OQ 

8 IF (OFL - 180.0) 9,9,7 

9 o = 180.0 - n 

OQ PFTMPN 

FNO 

* CAPOS CFLU^N 

* L a Bfl 

C INTFP 

SUBR 0 UT I NF INTEPITS , NREC , Y A LT , Y uAT , YL0NG , YL ST ) 

DIMENSION A ( 8 ) ,Bl 255 ) »flV( 18 ) ,B I ( 18 ) »BV2 ( 18 ) »BI2 < 18 ) »VC ( 8 ) .Rl ( 8 ) » 
1VC2 (8) *R 1 2 ( 8 ) , ELN ( 18) , R I C ( 8 ) *R2C ( 8 ) ,BV1( 18) , VC 1 ( 8 ) , R 1 C ( 8 ) »C(21 ) , 
20(71 ) , RSCX ( 4 ) , RSX ( 4 ),RS1(4 ),RS2<4 )»R5C1<4 )»RSC2(4 ),P(21),T(2 
31 ) , o A 1 ( °3 ♦ 4 ) *942(90,4) ,RFOl(90*5) ,RFD2(90»5) ,F(209) ,F( 142) 

1 , XT 1MEI3C ) »XALT (30) , XLAT (30 ,XL<si\G(30) ,XLST (30) ,XRBA1 ( 3 

1 0 ) ,XPRA? ( 3' ) ,XRRH1 ( 30 ) , XRRH2I 30 ) 

CC-MM0N B I ,BV1 ,BV2,VC1 ,VC2,R1 , R I 2 , XHF , XMF , XLF , X 2 HF , X 2 MF , X 2 LF , XHL , 

1 XML , XLL » X2HL »X2. V L , X2LL »;NED I » N®RB 

1 ,XTIME,XALT ,XLAT ,XL».\G,XLST ,XoBAl ,XRBA2 ,XRKH1 ,xRRH2 

T 35 = TS - . 334 
J A = 1 

1700 IF ( TSS-XT IMF ( JA ) ) 12 .1742,1303 
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12 
1 1 
1 o 

13 2? 
] 2 04 


1 

1 7^6 


13 01 


1 

* 

* 

* 

c 


IF(ja-1 11304,1304,1301 
l r ( JA-NPPC ) 1 1 ,1201,10 

J A = JA + 1 
G® T® 1300 
J A = J A — 1 
G® T® 1201 

I F ( J A — 1 1 1304,1304,1305 

Y ALT = XAL T ! JA ) 

Y L A T = X L A T ( J A ) 

Y[_®NG =XL®NG(JA1 
Y(.OT = XL. r 'T ( JA ) 

GS T® 1 

T r ( JA-NPFC 11301 ,1301,1326 
YALT=XALT ( NPEC ) 

YL AT=XL.AT ( NRFC ) 

Y|_®NG = XL®NG( NRFC 1 
YL c T=XLST (NREC) 

G ® T ® 1 1 

CASP=(TSS-XTI. -J iE( JA-1 ) ) / < XT I"F t JA >~XT I ME t JA-1 ) ) 

YALT = CA.Sh>*(XALT( JAl-XALTI JA-1 ) ) + XALT(JA-l) 

YLAT = CASP*(XLAT (JA)-XLAT(JA— 1) ) + XLAT(JA-l) 
YLSNG = CASP* ( XLaNG ( J A )-XL<?/NG ( JA”1 ) ) + XLSNG(JA-l) 
YLST = CASP* ( XLST ( JA ) -XLST ( JA-1 ) ) + XLST(JA-11 
PFT( mM 
FN® 

CARDS gplU'AS 
LIFT P 

SUBROUTINE PAGE 
ctipp«uTlNE PAGE (SFNS®p> 

DIMENSION FL®< (209) *CL®£ ( 141 ) 

PAGF 1 FORMAT 
p?TPP=0. 

CFN c ®P=SFNS®R 
RF AD TAPF 5.FLOK 
5T®P=FL®K ( 209 ) 

SATN0=FL0K (201 ) 

XMO=FL0K (2 n 2 ) 
n a y=F LOK ( 20’ ) 

YP = r|_P(C (204) 
cTANO=FLO< ( 205 ) 

ANA T N=FL®K(206) 

RF AD TAPF 5.CLRK 
PST0P=PST8P+1. 

DAYpTM=GL®K ( 2 ) 

JHRSMN=CL®K ( 3 ) /3600, 

HRSFf=3600* JHRSMN 
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P r >FC = CLFK(3 l-HRSFC 
A*SFC M N = RFFC/60. 

R=M<;FrvM*6n 
P?F<"1 v = RFFC-B 
PL®NGN=rL®< ( 10) 

PL AT V N = CL (: ' ! < (11) 

ALT W IN = CL< : >K ( 12 ) 

PLPCMN=CL®< ( 13) 

100 IF (PFT&P-STfflP) 11,300.300 
11 R F AO TAPF 5.CL0K 
PSTPPsPST^P+1 . 

PLF'NOWsCLS'K (10) 

P L A T m X = T L 0 < (11) 

ai_t^ax=<:lo^ ( 12 ) 

PL®CMX=CLSK ( 13 ) 

OAVGTX = <'L®K ( ? ) 

JWR an!X=CL3K ( 3 ) /36 A 0. 

HRSFr = 3600*JHR C ,VX 

RFFC=CLPK(3)-HR5FC 

MSFCVX=RSFC/6C, 

q=vsrcMX*60 

RSFC1X=RSFC-R 

G<? T® ICO 

300 CALL PAGE 1 ( SATNiS , ST AMS » X,V0 .DAY , YR , ALTM I N . ALTMAX .PLATMiX ,P 

CL ATMx .PLiiO-l/M » PLtiCMX , JHRG-iN » ^ SEC MM , it SEC 1 ” ♦ JHRSMX .MS EC MX .RSEC1X.DAYG 
CTM .oaYGT X .CFNSQR. PLSMGN.PL SNGM ) 

^ = n 

NST9P = PST ^P 

NjCT^p - + \ 

? TPfM^T OP-N) *5*391 

1 PACKSPATF 5 

N = N +1 
GO Tr? 2 
3 PFTUPN 

fnh 

* c A R n c < column 

* LIST R 

* cj irq^'it j mf PAGF 1 

SURRQWTI.NIF PAGE 1 ( SATN0*ST AN® * XM0 * DAY * YR , ALTM I N * ALTMAX * PL 

SATMN*PLATMx*HLv2)CKN*PL«CMX*JHR5>.N*XSECMi\i,RSEClM* JHRSMX *MSEG4X*RSEC1 
CX *DAVGTM*OAYGTX *CFNS0R*PLyr4GN*PLS:4GM ) 

j =rFN|Sf^p 
J A = FT A N 

CALL G T M C ( P L A T i --1 1\ * P L ® N G .\ * G A .Y W A * A L P H A ) 

CALL GTMC ( PLATMX * PLQNGY* RHf«4 , 9F TA ) 

1001 FORMAT ( 1H0*39X*25HGE®MAGNFT IC LAT (DEG.) F7.2*AH T0 F7.2 ) 
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% 1000 FSRMAT < 1H0.39X.25HGFSMAGNF* C L0NG1DEG.) F7.2.4H T© F7.2 ) 

WRITF ©UTPUT TftPF 3*130. SAT;.„ 

G© T© (211* 212. 213. 214. 215. 216. 217. 21°) , I 


?n 

WRIT© 

(»» Ijp! JT 

tapf 

3,20] 


G© T© 

209 



212 

VP I TP 

©UTPUT 

TAPF 

3,202 


G© T If 

209 



213 

W R I T F 

©UTP'JT 

TAPE 

3,203 


G© T© 

209 



214 

WRITF 

©UTPUT 

TAPF 

3*2 04 


G© T © 

2C9 



215 

WRITF 

©UTPUT 

TAPE 

3,205 


G© T © 

2 09 



216 

WRIT© 

©UTPUT 

TAPE 

3,206 


r,ff T © 

209 



217 

VP I TF 

©UTPUT 

TAPE 

3,207 


G© T© 

209 



218 

WRITF 

©UTPUT 

TAPE 

3,208 

209 

G© T© 

(1 ,2*3 

,4,5,6 

,7,8,9, 10, 11,12,13,14, 15,16, 17,18 ) ,JA 

1 

WRIT© 

©UTPUT 

TAPE 

3*21 *XM0, DAY, YR 


G© T© 

41 



2 

WRITF 

©UTPUT 

TAPE 

3,22 


G© T© 

41 



3 

WRITF 

©UTPUT 

TAPE 

3*23 *XV{S, DAY, YR 


G© T© 

41 



4 

WRITF 

©UTPUT 

TAPF 

3.22 


G© T© 

41 



5 

WRITF 

©UTPUT 

TAPE 

3*25*XVi©,DAY,YR 


G© T© 

41 



6 

writf 

©UTPUT 

TAPE 

3 * 26 * X Y® , DA V , YR 


G© T© 

41 



7 

WRITF 

©UTPUT 

TAPE 

3 * 27 * XM© , DAY , YR 


G© T© 

41 



8 

writf 

©UTP'JT 

TAPE 

3*28 *X>«©* DAY, Yk 


G© T© 

41 



9 

WRITF 

©UTPUT 

TAPF 

3*22 


G© T© 

41 



10 

WRITF 

©UTPi IT 

TAPE 

3,22 


G© T© 

41 



11 

WRIT© 

©i :TPUT 

TAPF 

3,22 


G© T© 

41 



12 

WRITF 

©UTPUT 

TAPE 

3*32 * XM© , DAY , YR 


G© T© 

41 



13 

WRITF 

©UTPUT 

TAPE 

3*33 *XM0, DAY* YR 


G© T© 

41 



14 

WRITF 

©UTPUT 

TAPE 

3*34 * XM® , DAY , YR 


J 
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r 


15 

G© TP> 
WRITF 

41 

©UTPUT 

TAPP 


3,35, XMt- , DA Y , YR 

16 

G© TP 
WRITF 

4] 

©UTPUT 

TAPE 


3*36 , XM® » DAY » YR 

17 

G© TP 
WRITF 

41 

©UTPUT 

TAPE 


3*37 *XM© »DAY, YR 

18 

G© TP 
WRITF 

41 

©UTPUT 

TAPE 


3»38»XM0,DAY»YR 

41 

WRITF 

©UTPUT 

TAPF 

3 

,4G0*ALTMIN*ALTMAX 


WRITF 

©UTPUT 

TAPE 

3 

* 500 *PLATM(m ,PLATMX 


WRITF 

©UTPUT 

TAPF 

3 

,1001 ,gawma,rh© 


WRITF 

©UTPUT 

TAPE 

3 

,501 ,P|_©NGN *PLffi.NGM 


WRITF 

©UTPUT 

TAPF 

3 

,1000*ALPHA,BFTA 


WRITF 

©UTPlJT 

TAPE 

3 

* 609 , PL0CMN * PL0CMX 


WRITF 

©UTPUT 

TAPF 

3 

,700 


WRITF 

©UTPUT 

TAPF 

3 

,800,DAYGTM,JHRSMN,MSECYN,RSEC1M 


WRITF 

©UTPUT 

TAPE 

3 

,900,DAYGTX, JHRSMX , MSECMX * RSEC IX 


1 00 

FQRm/vt 

( 1H0 


52X,13HSATELLITE 

SF2 

.0 ) 


201 

FORMAT 

( 1H0 

» 39X » 33H 

DATA ANALYSIS 


) 



202 

FORMAT 

( 1HC 

,39X,33H 

FTP N®. 2 DATA ANALYSIS 

) 



203 

format 

( 1H0 

, 3 9X ♦ 3 3H B 

• A. N®*1 DATA 

ANALYSIS 

) 



204 

FORMAT 

( 1 H 0 

* 39X , 3 3H B 

•A. M0 • 2 DATA 

ANALYSIS 

) 



205 

FORMAT 

( 1 HO 

, 39X , 33H M 

•S« N@.l DATA 

ANALYSIS 

) 



2 06 

fsrmat 

( 1H0 

,39X,33H M 

•S. NS.2 DATA 

ANALYSIS 

) 



207 

F0RMAT 

(1H0 

, 39X , 3 3H R 

•H* N® • 1 DATA 

ANALYSIS 

) 



208 

F8RMAT 

( 1H0 

»39X,33H R 

•H« N® • 2 DATA 

ANALYSIS 

) 



21 

F0RMAT 

( 1H0 

,39X,26HSTATI0N 

- BL0SSSM P0INT 

, 5HDATE 

3F3.0 


) 

22 

FORMAT 

( 1H0 

,39X,28MSTATI ®N 

NU^BFR IS I NC.0RRECT ) 




23 

fsrmat 

( 1 HO 

,39X,26HSTATI©N 

- F0RT MYFRS 

, 5HDATF 

3F3.0 


) 

25 

format 

( 1 HO 

,39X,26HSTATI©N 

- QUIT® 

, 5H0ATE 

3 F3 • 0 


) 

26 

format 

( 1 HO 

,39X,26HSTATI©N 

- LIKA 

,5HDATF 

3F3.0 


) 

27 

fsrmat 

( 1H0 

,39X,26HSTATI©N 

- ANTSFAGASTA 

, 5HDATE 

3F3 • 0 


) 

28 

F9RMAT 

( 1H0 

, 3 9X , 26HST ATI ©N 

- SANT I AGP 

, 5HDATE 

3F3.0 


) 

32 

F0RMAT 

( 1HC 

,39X , 26HS T A T I ©N 

- ST. JSHNS 

, 5HDATE 

3F3.0 


) 

33 

format 

( 1 HO 

,39X,26HSTAT I ©N 

- FAIRBANKS 

.5H0ATE 

3F3 • 0 


) 

34 

FORMAT 

( 1 HO 

, 39X , 26HST AT I WN 

- F. GRAND FORKS 

, 5HDATE 

3F3 • 0 


) 

35 

format 

( 1 HO 

, 39X ,26HST AT I ©N 

- WINKFIELD 

, 5HDATE 

3F3.0 


) 

36 

FORMAT 

( 1 HO 

» 39X * 26H5T AT I 0N 

- Johannesburg 

, 5HDATE 

3F3.0 


) 

37 

format 

( 1 HO 

,39X,26HST AT I iN 

- G0LDST0NE LAKF 

, 5HDATF 

3F3.0 


) 

38 

fsrmat 

( 1 HO 

,39X,26HSTATI ®N 

- W0MMERA 

, 5HDATE 

3 F3 • 0 


) 

400 

format 

( 1 H 0 

,39X,25HALTITUDF 

RANGF (KM) 

F7.2.4H 

TS F7. 

2 

) 

500 

Format 

( 1 M 0 

,39X,25HLATITUDF 

RANGF (DEG.) 

F7.2.4H 

T® F7. 

2 

) 

501 

F0RMAT 

( 1 HO 

, 3 9X , 25HL0NG I TUf>F RANGE (DEG.) 

F7. 2 , 4H 

T® F7 ♦ 

2 

) 

600 

FSRMAT 

( 1 HO 

,39X,25HL®CAL TIME (HRS) 

F7.2.4H 

T® F7. 

2 

) 

700 

FORMAT 

( 1 HO 

» 54X » 1 OHT I MF ( GUT ) ) 





800 

FORMAT 

( 1H0 

t39X*5HFR0M F4.0 

, 6HDA YS 12, 6H HRS 12, 6H 

MIN 

F6 • 

3 ♦ 4H 
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CSFC ) 

9 00 FORMAT ( 1HO*39X,5HTO F4. 0 > „HDA YS I2*6H HRS I2*6H MIN F6.3*4H 

r^rr ) 
pftupn 

FNjn 

* CARDS CFLUVN 

OIPO'MITJNP fOS, (S,F C ) 

C PROGRAM Ti EVALUTF THE THERMAL TRANSPIRATION FUNCTION 

nrMFNM^N ^(2) * TN ( 2 ) 

° ( n = c 

R ( 2 ) * 0 . 
n S c = R 

I F ( R ( 1 ) — 3 • 8 ) 8*8*6 
n 6 nrs=3.S44R077*ss 
SO To 70 
R TM?)=P t 
n oNF=l. 

n Tvo^ 7 . 

n T=T'«fO *<;2 

TF ( ARSFIPI 1 ) )-2.5) 10 * 10*0 
n 10 A =OMF 

n sh”=®NF 

no 20 N=] *49 
TNU )=N 

D Cl- (0NF-TWO*TN)/(0NF+T>^*TN) 

n r?= r 2 / T N 

n 4 = 

n rDn= su^+A 

n jf (fRo-fmM) 70 , 3^,70 

n pn ciiM-rpn 

0 30 nr$=FXPF (-S2 )+T*SMM+i . 7724 878500 *SL 

So jo 70 
n 40 A=- 0 *JF 
n S' »v=0 # 0 

NFajh=S 2 

no 50 N=1 , MFMn 
T N ( 1 ) =N 

n A = ( (ONF-Tmo*TN) /T)*A 

n so fmm = suv+a 
n DFS = SUM*FXPF ( — S2 ) 

IF(q(l n 7% 70*60 
0 60 nFS=nFS+3*5449077*SS 

-rn FS=nc-F 
DPT! !D^ 

FNO 
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n n 


* :ards cplumn 

S!IRR«'.iTINF press 

PRESSURE GAUGES DC ©UTPUT V0LTAGFS C0NVERTED T® 

CORRECTED IffiN CURRENT 

ni^ENSIGN A ( 8 ) ♦ B ( 2 5 5 ) * B V ( 1 8 ) * F3 I (18) »BV2 ( 18) *BI2( 18> *VC(8) *Rl (8) * 
1VC2 ( 8 ) »R I 2 ( 8 ) .ELN( 18 ) » R I C < 8 ) »R2C < 8 > »BV1 ( 1 8 ) • VO < 8 ) »RlC ( 8 > »C I 21 ) • 
2r>( 21 ) *RSCX( 4 ) « RSX ( 4 I.RS1U ),RS2<4 )»RSC1(4 ),RSC2<4 )*P(21)tT(2 
31 >, BA 1(90,4) * BA2 (90*4) , RED 1 ( 9 0 * 5 ) ,RFD2 ( 90 , 5 ) . E ( 209 ) , F ( 142 ) 

1 » XT I ME (30) ,XALT ( 30 ) * XLAT ( 30 ) *XLQixG( 30 ) ,XI_ST ( 30 ) ,XkBAl (3 

1") ,XOPA?(30) * XRRH1 (30) , X D RH2 ( 30 ) 

C<i’VM0N B I »BV1 ,BV2,VC1 ,VC2,RI , R 12 . XHF , XMF , XLF , X2HF ,X2MF ,X2LF , XHL ♦ 
lXVL,XLL,X2HL*X2ML,X2LL,i'<EDI ,N3RB 

1 »XT IME»XALT,XLAT.XL0NG*XLST,XRBA1*XR3A2 .XRRH1 ,xRRH2 

8888 3FAD TAPE IS, A 


C 


2 

3 


722 


I c ( MR) -6 0000004. )2»3*2 
pO[MT '-"ESSAGF - VRC'NG 

PPTNT 203 
C,o jo P, P P 8 


A (4)sA(4)+60« 
I . 1 = A ( 1 ) 

L '*'? = A ( ? ) 

LW3=A (3 ) 


TAPF 


L ,J 4=A ( A ) 

L '*■ 5 = A ( 5 ) 

L a 6 = A ( fc ) 

MPA?r^ 

AjPFm =o 

WRITF ©UTPUT TAPF 
n>FAH T A P r 15 *p 
Q ) / 1 POO. 

JMP?VN = P (?) / 3 6 C - • 
HPFFf=?6^ ** JHRFVN 

o<;rr = R ( p > 

MCFFM^sRSFr /60# 
yqpR-MCf^ M N *• ^ r\ 
o.CFC ] M = pc,f:r-XR1R 
PAr^PAfF 15 
W*?ITF OUTPUT TAPE 
V/^ITF ■ T P ! 1 T TAPF 
WRTTr C-IJTPIJT TAPF 
'•* P T T F OUTPUT TAPF 
WKITF OUTPUT TAPE 
*' ,D I TP FMTptiT TAPF 
I r ( ffmsf FWITHT 1 
WPITF 0UTPUT TAPF 


3 ,600, LW1 ,NEIH « im0 R B , L W 2 , L W 3 ,L W4 , lw5 » LW6 * A ( 3 ) 


3,12121 * J H R S VN , - M S E C M N , R S F C 1 v 
3 , 1 2222 , R v 1 
3,13333,872 
3 , 1 AAA ■'+ 

3 ,1555 5,XHF,XMF,XLF,X2HF*X2MF,X2l.F 
3 ,7 A 8 
7] 1 ,7?? 

3,900 
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G<=! TP 6111 

711 WRITF 0UTPUT TAPE 3,800 
6111 X=1 . 

OP A 1=1.18 

FLNt I)=LPGF(BI ( I ) ) 

4 CPNTINUF 
DP 30 ¥=1 .8 

Rir (*m=lpgf(R1 <¥> ) 

30 CPNTINUF 

OP 0?' ¥=1,8 

B7C(^)=L0GF<RI2(M1) 

95 FPNTINUF 

CPN=. 05/48. 

100 PFAO TAPF 15, B 
OP 5? <=1,10 
L = 25*(K-1 ) 

OP 8282 J=1 ,25 

I=J+L 

«( Jl=n( I » 

R ?P? C®NT INUF 

1 F ( B ( 1 ) -99999909. 15252, 106, 5? 52 
6252 J = ’ 

OP 2345 1=1,18 
B V ( I ) =PV1 ( I 1 
2345 CPNTINUF 
1 = 1 

B(2l=B(2 1/1000. 

T ( 3 ) =B ( 2 1 +CPN* ( 3. 1 
T 1 4 ) =B ( 2 1 +CPN*1 9. 
T(5)=B(2)+CPN*35. 

29 IF(J-6)7,8,7 
7 !F(B(J)-BV(I) 16,11 ,12 
12 1 = 1+1 

l F ( 1-19)7,14,14 
14 1 = 1 

C<J)=0C.00 
P( J)=00.00 
J = J+1 
1=1 

I F C J— 12 129,25,29 
6 IFt 1-1 19,88,9 
88 C<J)=00.00 
P ( J) = 00.00 
J = J+1 
1=1 

JF« J— 12)29,25,29 



s 

9 CLN=FIN( 1-1 ) + ( ( B( J )-BV( 1-1 ) ( BV ( I ) -BV ( I — 1 ) » >*< ELN< I )-ELN( 1-1 ) ) 

G<=) TO 15 
1 1 CLN=FLN( I ) 

15 X I ®N=FXPF ( CLN ) 

N = J 

CINlrXI^N 
J = J + 1 
1 = 1 

IF( J-12 129,25,29 

C sfART OF BAYARD ALPFRT 2 COMPUTATION 

5 DO ?A 1 = 1 ,1 8 

PV( I ) =PV2 ( I 1+.075 
20 CONTTNUF 

T(9)=R(2)+CON*5. 

T(10)=B(2)+CON*21. 

T(ll)=B(2)+CON*37. 

J = 9 
1=1 

IFIJ-12 17.25,7 

C START OF REDHEAD COMPUTATIONS 

25 OVC=(XHL-XHF+XML-XMF+XLL-XLF) /3.0 
T (15)=B(2)+CON*10. 

T(16)=B(2>+CON*26. 

T(17)=R(2)+0®N*42. 

DO 5432 M= 1 * 8 
VC(V)=VC1 (M) 

^432 CONTINUE 

DO 5324 M= 1 » 8 
PIC(M)=R1C(M) 

5324 CONTINUE 
J = 1 5 

M = 1 

35 IF( J-l 8)41. 42. 41 
41 TF(J-?1) 51 ,77,51 

51 D( J)=B ( Jl+DVC 

IF(D( Jl-VC(M) )61.71 ,72 
72 M=M+1 

j f ( M-9 151,75.75 
75 v = l 

C( J)=00.00 

D ( J ) = 00 #00 
P ( J1=00,00 
J=J+1 
GO TP 35 
71 r R N = 9 T C ( M ) 

D(J)=P( J) 
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Gw TW_8P 

61 I F ( M-l 16262.99,6262 
99 C ( J1=00.00 

nu>=oo.oo 

j=j+i 

v = i 

GW TW 35 

6262 CRN=RIC(M-l) + ( (01 Jl-VCtM-l ) )/ ( VC ( M l-VC ( M — 1 » ) ) * ( R IC ( M )-R IC ( M-l 11 
30 X|WN=FXPF(CWN1 
C ( J1=XIPN 
J = J+1 
M = 1 

GW TW 35 

C START ®F REDHEAD 2 CWMPUTAT I WNS 

42 nw 91 V= 1 » 8 
VC(M)=VC2(M) 

91 CPNTINUF 

DW ?22 M= 1 » 8 
P IC ( M 1 =R2C ( M 1 
222 Cwnjt j NCF 

T ( 1 8 } =B ( 2 1 +CWN*1 1 • 

T (191=3(2 >+CPN«27. 

T(201=B(2>+CPN*43. 

DVC=< X2HL-X2HF+X2ML-X2MF+X2LL-X2LF 1/3.0 
J = 1 8 

M = 1 

GW TW 41 

C START 0F REDHFAD CSMPUTATI0N FSR PRESSURE 

77 nw 1234 J= 1 5 » 1 7 

I F(C( J1-1.0E-09 1789,987,987 
789 SRSX=10. 

3O3XA=0. 

G® T ® 4047 

987 IF(C( J1-1.0E-08 12332,2332,1117 
2332 S°3x=7 .22 

S9SXA=.60F-10 
GW TW 4047 

1117 I F(C( J 1—1. 31E-0812332, 2227, 2227 
2227 IF (C (J1-1.0E-07 13337,3337, 4447 
3337 SRSX=9. 3 

SRSXA=.42F-09 
GP TW 4047 

4447 IF(C( J1-1.01E-07 >3337,5557,5557 
5557 IF (C( J 1-1. 0F-06 16667,6667,8887 
6667 SP3x=13.9 

39^X4=. 45F-08 
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G® T ® 4047 

9 8 97 I F ( C C J ) — 1 .01E-06) 6667,9997, V997 .. 
9997 IF(C( J ) -2. 8E-06 >2027,202 7, 3037. 
2^27 SRSX=16.9 

SR5XA=.34F-07 
G® TW 4047 

30?7 IF(C(J)-2.81E-06)2027, 2727,2727 
2727 IF(C(J)-1.0F-0 5)2928, 2828, 3838 
2828 ppcx=10,8 

SPSXA=-.59F-07 
G® TP) 4047 
■*898 8P8X = 10. 

8R5XA=0, 

4047 P ( J ) = (C ( J ) /SRSX 1 +SRSXA 
1234 CF'NTINUF 

D® 4321 J = 1 8 , 2 0 

IF(C( J)-1.0E-09)7111 ,7222,7222 
7111 SR5X= 1 0 . 

SRSXA=0. 

G® TP) 7808 

7222 IF(C(J)-1.0F-08) 7333,7333,7444 

7Rop 89?X=4,72 

6P.6XA = .61®-10 
G® T® 7808 

7444 I F ( C ( J ) - 1 .01 F-08 17333,7555,7555 
75 r 5 IF ( C. ( J » — 1 .OF-07 ) 7666,7666,7888 
7666 6RFX=6.22 

SP6X4=.23F-09 
G® T® 7808 

7883 I F ( C ( J ) - 1 .01E -07 17666*71 01, 7101 
7101 IFtC ( J1-1.0F-06 17202, 72 02,7303 
7202 SP5X=8.66 

5PSXA=.24F-08 
G® T® 7808 

7303 IF(C( J 1 — 1 .018-06)72 02,7404,7404 
7404 IF(C(J)-2.8E-06)7505, 7505, 7606 

7605 PP5X=11 . 8 
6P8XA=.?3F-07 
G® T® 7808 

7606 IF (CtJl-2. 8 IE-06175 0 5, 7005, 700 5 
7005 IF(C(J)-1.0F-05 17025,702 5, 7035 
7025 SPSX=11.8 

SR5XA=.23F-07 
G® T® 7808 
7 na 5 5P6X = 10. 

CPCXA=0. 
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7°no p( j)=(r( J)/ crcx)+s^^xa 

4771 j M» ip 

r START ©F RAYARo alpfrt 1 prfssurf c©mputati®n 

J=?1 

44 A TF(P( Jl-15. 0)212*232,2 12 
77 ? FVi=P(J+7) 

323 J= J+25 

I r f J-771 ) 121*1710?! 

1 i n -v. t ^ 4 33 

171 TF(q(j>-^ # >773* 322 023 

•5?? rM 7 -a( J + 7) 
r;c tp 477 

71? Tr ( q ( j)-\ )4U*W # A1 1 

4^4 F K '7 = n ( j + ? ) 
aft J=J+7* 

I c ( J-271 )626*477,626 
6?S Tr { p(j)_i 5 .n) 66 1*636*661 
636 F"!=F(J+2) 

GF 1 Tip 43 3 
411 J=J+?^ 

T F f J-?71 ) 444 *655* 444 
5 5 5 I*"<X-1« >433*422*433 
4 ?? rvi=-n. 
r»7 = ,n # 
y = x + i . 

43*5 ffn] = M.^/97.3)*FM1 
ffm 7= (1,7/1 19.6)*F*2 
y=y+l 0 

n® 3445 J= 3 * 5 
p ( j)=r(j)/ cr Ni 
F445 r<=‘N T TN ,, F 

n'P 4554 j=9 *11 
P( J)=C ( J1/SFN2 
4 4^4 r'PMTjiyjl'F 

jr( c .rN. c .r SWITCH 1 )654*456 

654 W P I T F BUT PUT TAPF 3 * 430 * B ( 2 ) * B ( 3 ) * C ( 3 ) *B ( 9 ) * C ( 9 ) *B ( 1 5 ) * D ( 1 5 ) * C < 1 5 ) 
1 ,q ( 1 P ) ,n(l 9 ) *C( 18) 

WRITF BUT PUT TAPF 3*500*B(4) *C(4) *B( 10) *C(10) *B ( 16 ) *0 ( 16)*C( 16) * 
l«(l Q )»n(19)*C(19) 

WRITF eUTPUT TAPE 3 * 5 3 3 ♦ B ( 5 ) ,C ( 5 ) * B ( 1 1 ) *C ( 1 1 ) *8 (17 ) , D < 1 7 ) * C ( 1 7 ) * 

i« t?n.) *nt? 7 ) » c ( 2 0 ) 

r,® tp 5 ? 

456 WRITF BUT PUT TAPE 3 * 9 191 *FV 1 * EM2 

WRITE ©UT PUT TAPE 3 *1000*T ( 3 ) *B( 3 ) *C ( 3 ) *P( 3 ) *T ( 9) *B( 9 > *C (9 ) *P(9 ) 
WRITF BUT PUT TAPE 3 * 1 009 * T ( 1 5 ) *B ( 1 5 ) *0 (15 ) *C < 15 ) *P < 1 5 I * T ( 1 8 ) ,B ( 1 8 ) 
1 * n ( 1 P ) *c ( l P , ,p ( l B ) 
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WRITE OUTPUT TAPE 3.1000*T< , B ( 4 ) , C ( 4 ) , P ( 4 ) » T U 0 ) ♦ B ( 1 0 ) . C ( 10 ) ,P ( 1 

in ) 

WRITE OUTPUT TAPE 3 t 1 009 » T t 16 ) .B ( 16 ) * D ( 16 ) »C < 16 ) .P ( 1 6 ) , T ( 19 ) »B ( 1 9 ) 

I »n( ] 9) ,C ( 19 ) ,P( 19) 

WRITF OUTPUT TAPE 3 , 1 000 » T ( 5 ) » R ( 5 ) »C ( 5 ) *P ( 5 ) » T ( 1 1 ) * B ( 1 1 ) ,C <1 1 ) «P ( 1 

II ) 

WRITE OUTPUT TAPE 3 » 1009 ♦ T ( 1 7 ) » B ( 1 7 ) »D ( 1 7 ) • C ( 17 ) tP ( 1 7 ) * T ( 20 ) * B ( 20 ) 
1 ,n(20>.C(? r M ,P(20) 

5? CONTINUE 
GO To 

ICE WRITE OUTPUT TAPE 3*950 
RFi..(j*jr> 15 

700 FOPVMT ( 50X1 Hll 7H WRONG TAPE ON) 95) 

70? EOQv/\t(oes.7/9f8.?) 

?04 fodmat(of6.3/9F6.3) 

300 FORMAT (OE8,6/7F3.6) 
oo 3 format (°F8.2/7FB.2) 

005 E orm A T ( 6E6 • 3 ) 

400 F®RMAT(6XF7.2.2XF6.3.3XE9.2.4XF6.3*4XE9.2*3XF6.3*4XF6.3*3XE9.2»3XF 
16.3*4XE6.3»3XE9.2 ) 

500 FORMAT! 15XF6.3,3XF9.2 ,4XF6.3*4XE9.2,3xr6.3.4XF6.3,3XE9.2 ,3XF6.3*4X 
1 F6.0* , XE9.2) 

60C FORMAT! 1H154X15HSATFLLITE NO. = I5,13X6HFDIT = 1 4 * 5X7HORB I T =14* 
1//60X7HMOINTH = I 5 , / / 65 X 5HOA v = 

1 I5.//64X6HYEAR = I 5 * // 5 7X1 3HSTAT I ON NO. = I 5 * // 53X 1 7HANALOG TAPF 
2N®. =I5*//50X2 CHPRESSURF GAUGES ID =F13.0//3//) 

700 FORMAT ( 1H126X72HPRESSURE GAUGES DC OUTPUT VOLTAGES CONVERTED TO 10 
1 N cu r ’°ENT AND PRFSSU D F//// ) 

300 Format (6X109HTIMF BA 1 CURRFNT BA 2 CURRENT 

1 RFO 1 ADJ CURRFNT RED 2 ADJ CURRENT////) 

900 FORMAT (6X1 07H TIME GAUGE VOLTS ADJ VOLTS CURRENT PRESSURE 
1 T I MF GAUGE VOLTS ADJ VOLTS CURRENT PRESSURE////) 

950 FORMAT! 35X27HALL DATA HAS BFFN PROCESSED) 

1000 F®RMAT(3XF9.3*4XF7.3,15XE9.2,3XF9.2,3XF9.3,3XF7.3,12XE9.2,4XE9.2 ) 
1009 FORMAT<3XF9.3,4XF7.3,4XF6.3,5XE9.2,3XE9.2*3XF9.3,3XF7.3*2XF6.3*4XE 

19.?,4XFo.7) 

rirpMAT (50X12) 

12222 FS'pv’AT ( ] H036X6H1BA1 9 C 6*3,/37X6H2BA1 9F6.3) 

13333 FORMAT! 1H036X6H1BA2 9F6 . 3 , / 3 7X6H2BA2 9F6.3) 

12121 FORMAT! 3H0////44X14HTIME - HRS =I2*5X5HMIN =12 ,5X5HSFC =F6.3) 

14444 FORMAT ( 1 HC44X 3 1 IIBAY ARD ALPFRT 2 DC SHIFT = .075) 

15555 FORMAT! 1H044X12HFLIGHT CAl 6F6.3) 

9191 FORMAT ( 30X22H3A1 EMISSION CURRENT =F9. 3* 10X22HBA2 EMISSION CURRENT 
1 =F9.3) 

OCT* IRN! 

F'lPl 


* cuqponTTNF HFN 


* 

CAROS C 

FLUMN 

•* 

CAP 



L*L 

OPN*X 


r m t o y 

OPN 


CAL 

oc*6 


ST A 
CPAJ 

*+l 


CAL 



C T A 
<;hm 

* + l 


r al 

ors 


PT A 
CHM 

*+1 


r a L 



CT * 

cn\| 

*+l 


tra 

1*4 

C'PA 

err 

^0000^^02? ^6 

*^6 

®CT 

CO OGC 0001 206 

or s 

of t 

n 0 0 C 0 0 0 0 3 2 ^ 5 

or 5 

ory 

PNn 

s ^ ■? C 0 0 0 n 3 ? 6 


* 
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BA 1 AND BA 2 VOLTAGE TO CURRENT 
CONVERSION TABLE* 


BA 1 
V 

Volts 

Ic 

Current 

BA 2 
Vi 

Volts 

.188 

1.0 

X 

10' 11 

-0.212 

.285 

2.0 

X 

10- 11 

-0.123 

.495 

3.0 

X 

10 _u 

0.049 

.611 

5.0 

X 

io- 11 

0.212 

.721 

7.0 

X 

io- 11 

0.305 

.859 

1.0 

X 

10-io 

0.418 

1.065 

2.0 

X 

i— 1 

o 

1 

o 

0.638 

1.172 

3.0 

X 

H* 

O 

1 

o 

0.790 

1.345 

1.0 

X 

10- 7 

0.985 

1.503 

3.0 

X 

10- 9 

1.164 

1.808 

1.0 

X 

h-* 

O 

l 

00 

1.488 

2.195 

3.0 

X 

h- 1 

O 

00 

1.868 

2.565 

1.0 

X 

IO" 7 

2.170 

2.955 

3.0 

X 

h- 1 

O 

1 

2.538 

3.330 

1.0 

X 

10- 6 

2.883 

3.755 

1.0 

X 

IO" 5 

3.307 

4.211 

3.0 

X 

10 - 5 

3.720 

4.686 

3.0 

X 

10-5 

4.235 


*Table is the same for RH gauges except that the gauge voltage values are dif- 
ferent and the I c is only given for seven (7) values. 
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GAUGE SENSITIVITY 

TABLE OF VALUES A AND B FOR REDHEAD 
GAUGES ONE AND TWO 


Gauge Current 
Range 

RH 1 
B 

RH 1 
A 

RH 2 
B 

RH 2 
A 

10 — 10 ~ 8 amps 

7.22 

0.60 x 10~ 10 

4.72 

0.61 x 10“ 10 

10-8 - io-7 

9.3 

0.42 x 10-9 

6.22 

0.23 x lO-io 

io- 7 - io- 6 

13.9 

0.45 x 10-8 

8.66 

0.24 x IO - 8 

1 x 10" 6 - 
2.8 x 10~ 6 

16.9 

0.34 x IO* 7 

11.8 

0.23 x 10“ 7 

2.8 x IO ' 6 - 
10 - 5 

10.8 

0.59 x 10- 7 

11.8 

0.23 x 10- 7 












